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La Gibson è la Light Pen più potente e completa per Apple. 

Sino dalla sua apparizione sul mercato USA La Gibson Light Pen è 
diventata un immediato successo. Lo stesso Steve Woznyak, uno 
dei fondatori della Apple, è stato uno dei primi entusiasti 
utilizzatori della Gibson Light Pen che ha definito come il più 
^ significativo miglioramento dell'interazione 
uomo/computer disponibile su Apple. Oggi la 
KOALA TECHNOLOGIES forte dell'enorme 
successo conseguito con la KOALA PAD e con la 
esperienza notevole acquisita nel campo della 
grafica per computer ripresenta la GIBSON 
LIGHT PEN in una versione ancora più potente ed 
ottimizzata però diversi applicazioni: 
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Pen Pointer per disegnare 

Pen Designer per progettare 

Pen Animator per costruire animazioni 

Pen Musician per comporre musica 

Pen Track per creare programmi supportanti 

la Light Pen 
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Bridge 

Con questo programma si può giocare a bridge contro l'Apple al fine di 
perfezionarsi nella dichiarazione. Ma si può anche imparare, e l'Apple 
tiene il punteggio e fa da degno avversario con tanto di grafica ad alta 
risoluzione. 

I calcoli? Me li fa tutti lui 

Questo programma permette di capire come funziona VisiCalc e i 
pacchetti simili, e mette a disposizione 20 righe per 20 colonne, per un 
totale di 400 caselle, tutte da riempire come serve a voi. 

Macnews 

Dodici programmi per Macintosh: dall'agenda di casa al simulatore per 
manager d'alto rango al compositore elettronico per musicisti ... 


62 

69 


Un budget che non sbaglia 

Con questo utile strumento potrete tenere sotto controllo tutte le spese 
e le entrate mensili Non solo, ma vi segnala anche se state spendendo 
più di quanto avevate preventivato, oppure. .. 

Filevision 

Ecco nei dettagli che cosa fa e a cosa serve Filevision, il potente data 
base grafico creato per Macintosh. 
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Applesoft line editor 

Ecco una potente utility che permette l'editing dei programmi e 
aggiunge all'Apple un più ampio controllo del cursore. Scritto in 
Assembler, è destinato all’impiego con l'Applesoft-basic nella ROM. 

Ero un file, ora son data 

Il problema che questa utility risolve è quello di aggiungere a un 
programma preesistente delle istruzioni DATA contenente valori 
ricavati da un file presente su disco. 

Speciale Appliscuola 

L animazione di una rotazione tridimensionale permette di 
rappresentare gli oggetti proprio come li vediamo. E non è affatto 
complicato... 
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I calcoli? 

Me li fa tutti lui, pag. 34 
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Tutti i diritti di riproduzione e traduzio¬ 
ne di testi, articoli, progetti, illustra¬ 
zioni, disegni, listati di programmi, fo¬ 
tografie ecc., sono riservati a termini 
di legge. I programmi pubblicati su 
Applicando possono essere utilizzati 
per scopi privati, scientifici e dilettan¬ 
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Gennaio-Febbraio 1985 è la data che 
riporta in copertina questo numero di 
ffppfìcsfìdo. Per qualche lettore distratto ci 
teniamo a specificare che fìppiitGfìéa non è 
tornato ad essere bimestrale, ma essendoci 
impegnati a fare 10 numeri l'anno, 
necessariamente douremo fare due numeri 
doppi. Il primo è appunto questo, e il fatto di 
auer chiuso il giornale alla fine di gennaio ci 
ha permesso di poter parlare di tutte le 
nouità annunciate dalla Rpple per il 1985. 
Infatti in Rpplicosa tutti coloro che hanno 
scritto chiedendo più informazioni sul mondo 
del personal computer Rpple troueranno di 
che essere soddisfatti. 

Rnche le richieste degli utenti 
Macintosh non sono rimaste ineuase: 
costoro troueranno la recensione di 12 
pacchetti di softtuare freschi di stampa (pag. 
55) e una prona particolareggiata di 
Filenision (pag. 69). 

Per gli appassionati del Bridge (ma è 
ualido anche per chi uuole imparare le regole 
del gioco) c'è un bellissimo programma in alta 
risoluzione grafica (pag. 18). 

Per i businessman, gli esperti di 

fìppiicBntfo hanno preparato un modello di 
budget costruito con IlisiCalc o con 
Bpplelllorks (pag. 62), che diuenta anche la 
prima puntata di un corso per l'utilizzo di 
RpplelBorks. Infatti nei prossimi numeri 
trouerete altri modelli di spreadsheet, di 
data base e di word processor tutti realizzati 
con questo programma. Per chi inuece non ha 
né IlisiCalc né Rppleuiorks, presentiamo 

Microcalc, uno spreadsheet ridotto (20 

colonne per 20 righe), che però ha il pregio di 
non costare nulla, in quanto basta copiarselo 
da ffppfic&ndo. 

E poi le Utilities, flppliscuola, le 

rubriche... insomma, un numero ricco, che 
spero ui ripagherà dei rigori di questo freddo 
inuerno. 
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Un Macintosh 
per cacciare 

li' bionda, raffinata e mi¬ 
nuta; si direbbe, a giudicarla 
dall'aspetto, che Marta De 
Vita sia una gallerista, o ge¬ 
stisca una boutique, o faccia 
la critica letteraria. Invece, 
e lo dice soavemente, fa la 
cacciatrice di teste, e non in 
Amazzonia ma nel centro di 
Milano. 

Certo, a dirla così fa un 
po' impressione: l'impor¬ 
tante però è capirsi; i cosid¬ 
detti cacciatori di teste, o 
head hunters. sono dei pro¬ 
fessionisti sui professionisti, 
persone specializzate nella 
ricerca di manager e perso¬ 
nale ad alto livello da inseri¬ 
re nelle migliori aziende. La 
differenza tra un cacciatore 
di teste e una società specia¬ 
lizzata. però, sta nel fatto 
che un head hunter trova i 
suoi cervelli attraverso con¬ 
tatti personali, mentre le so¬ 
cietà specializzate, nella 
maggior parte dei casi, uti¬ 
lizzano i freddi annunci sui 
quotidiani. 

Marta De Vita da alcuni 
anni svolge questa attività 
dopo aver lavorato in uno 
studio di ricerca del perso¬ 
nale. E' una professione, 
confida, che le dà molte sod¬ 
disfazioni: non ultima quella 
di poter utilizzare nel lavoro 
doti di femminilità solita¬ 
mente relegate alla sfera del 
privato; sensibilità, intuizio¬ 
ne. fantasia sono infatti in¬ 
gredienti fondamentali, in 
un'attività di cui i rapporti 
interpersonali sono la base. 

La sua casa, dove lavora, 
rivela il gusto per tutto ciò 
che è bello e non ordinario, 
e il profilo "greco" del suo 
Macintosh si ambienta con 
elegante disinvoltura tra i 
mobili antichi. Ma come mai 
una donna, con un lavoro 
nel quale i rapporti umani 
sono essenziali, ha deciso di 
acquistare un computer, 
che, per quanto personal, 
viene spesso visto come uno 
strumento freddo e distacca¬ 
to? Marta de Vita racconta 
che anche lei, fino a qvdche 
mese fa, la pensava così, ma 



già dopo il primo incontro 
con Macintosh si è ricredu¬ 
ta. perché "Macintosh non 
ha paura di trattare le perso¬ 
ne come persone". 

Da questo primo contatto 
all'intuizione che Mac 
avrebbe potuto aiutarla a 
gestire ancora meglio il suo 
lavoro il passo è stato breve. 
Così Marta de Vita ha sco¬ 
perto che poteva inserire in 
Macintosh tutte le schede 
con le informazioni dei can¬ 
didati: appena ricevuto l'in¬ 
carico da una società per 
una ricerca, pensa Mac a 
trovare i professionisti che 
hanno le caratteristiche 
adatte alla posizione da rico¬ 
prire. Con questa rosa di 
candidati pronta, Marta de 
Vita ora può concentrarsi 
maggiormente sulle caratte¬ 
ristiche personali dei singo¬ 
li, e proporre alla società 
quelli che più si avvicinano 
alla "filosofia" de 11'azienda 
stessa. 

Questo genere di lavoro, 
però, la porta spesso al di 
fuori delle tranquille mura 
di casa: Macintosh in questi 
momenti viene letteralmen¬ 
te preso d'assalto da Andrea 
e da Cristina, i figli di Marta 
de Vita: Andrea, provetto 
chitarrista e suonatore di 
banjo, lo utilizza per "scri¬ 
vere" gli spartiti musicali. 


mentre Cristina, molto più 
concretamente, tiene in or¬ 
dine le finanze familiari con 
l'aiuto di un programma di 
foglio elettronico. 

Insomma, finalmente un 
Macintosh ha trovato una 
famiglia che gli dà un po' di 
soddisfazione! 


Marta De Vita nel suo 
studio. Elegante e 
raffinata, amante del 
bello e dell’antico, ha 
saputo trarre dal 
Macintosh un valido 
aiuto per la sua 
professione di head 
hunter. 
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Un Macintosh 
per creare 


L’artista torinese Ugo Nespolo e (sotto) "Dracula 2", una 
caricaturale interpretazione del mostro assetato di sangue di 
letteraria e cinematografica memoria. 


me "a bassa risoluzione" e le 
dipinge con i rossi e i gialli 
tipici dei videogames. I suoi 
paesaggi pittorici si animano 
così di personaggi frastaglia¬ 
ti e goffi, di figure stilizzate, 
di vivaci ruzzoloni, ed ema¬ 
nano una tipica, inconfondi¬ 
bile sensazione di velocità e 
di divertimento. 

Pittore, mosaicista, foto¬ 
grafo, cineasta, patafisico. 
Nespolo diverrà forse anche 
un realizzatore di opere 


Il personal computer per 
ora non sostituisce il pennel¬ 
lo, ma gli fornisce ottimi 
suggerimenti. L'atmosfera 
sgargiante, luminosa e inter¬ 
mittente del videogioco si 
trasferisce così, incornicia¬ 
ta, sulle pareti, concretizza¬ 
ta nei quadri di Ugo Nespo¬ 
lo. Torinese, 43 anni, l'arti¬ 
sta del puzzle ha ora scoper¬ 
to Macintosh, il suo ultimo, 
più divertente, giocattolo. E 
di giocattolaio impertinente 
Nespolo ha infatti fama, or¬ 
mai da molti anni, per la sua 
allegra capacità di strizzare 
l'occhio all'arte, togliendole 
di dosso gli abiti scuri. 

Ugo Nespolo definisce 
quella operata dal l'avvento 
dei computer una "rivoluzio¬ 
ne estetica" oltre che tecno¬ 
logica. Così come all'inizio 
della sua carriera si lasciò 
ispirare dai puzzle per bam¬ 
bini, e alcuni anni fa dalle 
vetrine illuminate e addob¬ 
bate, oggi per i suoi quadri 
sceglie le più vivaci videate. 
Con il legno, poi, crea sago¬ 


d'arte interamente gestite 
con il computer? Non lo di¬ 
ce, non è abituato a imbri¬ 
gliare in programmi troppo 
rigidi i felici percorsi della 
sua estetica: "Sono un artista 
che ha bandito la consuetu¬ 


dine. I luoghi comuni. Per 
svolgere il mio lavoro non 
credo esista un'unica tecnica 
utile a sviluppare creatività 
e fantasia. E’ necessario la¬ 
vorare e creare in modo al¬ 
ternativo". 


"L’iconografia 
del futuro sarà 
sempre più 
orientata verso 
le forme 
schematiche 
proprie dei 
grandi 
elaboratori 
elettronici e dei 
personal 
computer" 
afferma Ugo 
Nespolo. Qui a 
sinistra "Il Lupo", 
realizzato, come 
tutte le altre 
opere con la 
stessa tecnica: 
tessere di legno 
dipinte e 
ricostruite a 
mosaico 
multicolore. 


"Discesa libera 
(a sinistra) e 
"Ridersinthe 
sky" (a destra): 
ogni immagine, 
ripresa dal video 
del computer, è 
smontata in 
singoli pezzi e 
poi ricostruita in 
un mosaico 
multicolore. 
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O SUPER VISION III. Monitorcolori 12”, scher¬ 
mo antiriflesso. Possibilità di funzionamento 
in text mode su fosfori verde, ambra, bianco rever¬ 
se, selezionabili dall’utente. Risoluzione640x262. 

O VISION PAL. Monitorcolori 12”, schermo an¬ 
tiriflesso. Possibilità di funzionamento in text 
mode su fosfori verde, ambra, selezionabili dal¬ 
l’utente. Ingresso videocomposito. Low cost. 

© VISION PC. Monitorcolori 12”, schermo anti¬ 
riflesso. Appositamente progettato per IBM 
PC. Risoluzione 640x262. 

O RGB VISION II. Monitor colori 12”. Risolu¬ 
zione 510x262. Ingresso RGB. Filtro smoked 
in dotazione. 

O KX1201 - E. Monitor fosfori verdi 12”, scher¬ 
mo antiriflesso. Ingresso videocomposito. 
Opzionale piedestallo di basculaggio KTS-1 con 


orologio LCD incorporato (rif. 16). 

O KX1212 - E. Monitor fosfori verdi 12, schermo 
antiriflesso, compatibile con IBM PC. Opzio¬ 
nale piedestallo di basculaggio KTS-2 con orolo¬ 
gio LCD incorporato (rif. 17). 

O KP910. Stampante a matrice 9x9,156 colon¬ 
ne a 140 cps bidirezionali ottimizzati, trasci¬ 
namento trattori e frizione, grafica Elevata silen¬ 
zio sità. Near letterquality. Interfaccia Centronics. 
Disponibilefirmwarepercompatibilitàcon IBM PC. 
Capacità stampa su originale + 3 copie. 

Opzioni: (rif. 9) e (rif. 12). 

O KP- 810. Come KP910. Stampa su 80 colon¬ 
ne. Capacità stampa: originale 4- 2 copie. 

O KIF 4308. Buffer di memoria esterno da 64K 
bytes espandibili fino a 256 K bytes. 

Può pilotare due stampanti. 


0 


tb KFD 510. Minifloppy 5” 1/4 da 140K byte 
^ slim line. Per Apple computers e compatibili 


Apple. 

O KIF 3600. Interfaccia colore grafica per IBM 
PC. Da utilizzare con Vision PC (rif. 3) e super 
Vision III (rif. 1). 

\ KIF 3502. Interfaccia seriale RS 232 C. 


0 ' 


® KIF 3210 S/64. Espansione di memoria da 
64K a 256K bytes per IBM PC completa di 
interfaccia seriale RS 232 C. 

O RGB II B. Interfaccia RGB per computer 
Apple11 plus e Applell e, per i monitor (rif. 1 ) e 
(rif. 4). 

® KIF3700. Interfaccia monocromatica e stam- 
panteperIBM PC. Dautilizzarecon KX1212-E 
(rif. 6) e KP 910 o 810 (rif. 7) e (rif. 8). 











Gigante nella qualità. Le periferiche TAXAN si 
sono imposte sul mercato USA per l’eccezionale 
affidabilità che nasce da una progettazione”senza 
economia” ed un’accurata scelta dei componenti 
impiegati. 


Gigante nella gamma. TAXAN offre una gamma 
completa di periferiche”made in Japan”, ideale per 
ognitipodi personalcomputer(IBM, APPLE, COM¬ 
MODORE, SINCLAIR, BBC, ecc.). 


Gigante nella convenienza. Decisamente com¬ 
petitivo, il prezzo è infine un’altra piacevole qualità 
delle periferiche TAXAN. 
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Come una bacchetta magica 


Sestriere. Gli azzurri, da sinistra: Toetsch, Erlacher, Grigis, 
Edalini. 


(contenuti in due dischetti), 
cavetto di connessione e ma¬ 
nuale, Gibson Light Pen Sy¬ 
stem costa circa 400 mila li¬ 
re. 


Un nastro 
di ghiaccio 

Per il secondo anno con¬ 
secutivo, la Coppa del mon¬ 
do di sci alpino ha come 
sponsor la divisione au¬ 
dio-video della BASF, l’a¬ 
zienda tedesca leader sul 
mercato del nastro magneti¬ 
co, che ha inventato cin¬ 
quanta anni fa. 

La recente utilizzazione 
del biossido di cromo, oltre 


a ottimizzare la qualità di 
nastri e cassette, ha permes¬ 
so alla BASF di intrapren¬ 
dere con successo anche la 
produzione di nastri per ela¬ 
boratori di elevata qualità. 

La BASF alpine ski world 
cup 1984/85, iniziata a Cour¬ 
mayeur il I dicembre, si con¬ 
cluderà con la gara di Hea- 
venly Valley (USA) il 
22—24 marzo. 


Do you speak 
English? 

L'uso didattico del perso¬ 
nal computer è ormai piut¬ 
tosto diffuso, e finalmente 
comincia a esserci anche una 
buona disponibilità di soft¬ 
ware adeguato. Per l'ap¬ 
prendimento della lingua in¬ 
glese, in particolare, sono 
già disponibili i primi due di¬ 
schi (il terzo sarà pronto in 
febbraio) del progetto CA- 
GE: Computer Assisted 
Grammar of English. 

Realizzato sotto la dire¬ 
zione di Philip Swann, un 
giovane linguista inglese con 
esperienze di insegnamento 
dell’inglese a italiani, il cor¬ 
so è strutturato in più livelli, 
e permette una formula per- 


Semplice e divertente co¬ 
me un gioco, la penna ottica 
della Gibson è in realtà, gra¬ 
zie al ricco software di cui è 
corredata, uno strumento di 
precisione dalle molte utiliz¬ 
zazioni. Il video del compu¬ 
ter si trasforma in una super¬ 
ficie incantata, in cui forme 
e colori mutano al semplice 
tocco della Light Pen. 

Con il primo programma 
in dotazione, PenPainter, la 
penna ottica diviene un pen¬ 
nello, con una tavolozza ric¬ 
chissima di colori a sua di¬ 
sposizione e il video come 
tela: per progettare la nuova 
carta da parati del soggiorno 
o un'originale disegno per il 
prossimo maglione, per di¬ 
vertirsi facendo i creativi, 
per lavorare meglio. Natu¬ 
ralmente è possibile anche 
aggiungere del testo ai "dip¬ 
inti", nonché stamparli. 

Il secondo programma è 
PenDesigner, allettante 


Tre programmi del ricco 
software di cui è corredata la 
penna ottica della Gibson, in 
ordine: Pen Painter, Pen 
Animator, Pentrak. 


proposta per chi ha frequen¬ 
temente bisogno di realizza¬ 
re schemi, grafici, circuiti, 
diagrammi e tabelle; c'è in¬ 
fatti una vasta dotazione di 
simboli grafici, ai quali se ne 
possono agevolmente ag¬ 
giungere molti altri, e l’uso 
della penna ottica rende 
semplicissima la realizzazio¬ 
ne di disegni di grande preci¬ 
sione e complessità: come 
fosse una pinzetta, per 
esempio, la penna può rac¬ 
cogliere un simbolo e posi¬ 
zionarlo un po' più in là, e 
poi ingrandire un particola¬ 
re , perfezionarne un altro... 

PenAnimator, poi, pro¬ 
pone un simpatico incontro 
con la computer graphics: la 
realizzazione di sequenze 
(fino a 20 vignette) animate. 
Le possibili applicazioni, 
anche qui, sono molteplici: 
didattiche, professionali, ri¬ 
creative. 

Con PenMusician, quarto 
programma del Gibson 
Light Pen System, la penna 
ottica diviene anche acusti¬ 
ca, e, scrivendo sul rigo otta¬ 
ve e semitoni, consente di 
comporre nuove melodie, 
che possono naturalmente 
venir salvate e riascoltate in 
seguito. 

PenTrak, infine, è un ric¬ 
co sistema linguistico, che 
fornisce agli utilizzatori del¬ 
la penna ottica tutti gli stru¬ 
menti necessari per creare, 
salvare e richiamare i vari 
programmi grafici. 

Per utilizzare il sistema 
sono necessari un Apple (//, 
//+ o //e, 64 K di memoria), 
un monitor a colori (non 
quello di Apple ///), un disk 
drive e un DOS 3.3. Com¬ 
pleto di penna, programmi 
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sonalizzata di apprendimen¬ 
to, grazie anche all'elevata 
interattività studente-com¬ 
puter. 

CAGE 1 è commercializ¬ 
zato in un raccoglitore ad 
anelli, che contiene due co¬ 
pie del disco, il manuale bi¬ 
lingue, il testo di grammati¬ 
ca inglese, la scheda per la 
registrazione dei punteggi e 
il buono di ordinazione per 
l'acquisto di CAGE 2. Solo 
chi possiede già il primo di¬ 
sco, infatti, può acquistare il 
secondo, che viene fornito 
sempre in doppia copia, con 
manuale. Per ulteriori infor¬ 
mazioni, o per l’acquisto 
(100 sterline per CAGE 1, 
60 per CAGE 2): Licosa 
Spa, via Lamarmora 45, 
50 121 Firenze, telef. 
055/579751. 


Apple in riviera 

Per chi possiede o posse¬ 
derà un Apple, e lo usa o 
userà a Sanremo o dintorni, 
esiste un nuovo punto di ri¬ 
ferimento: un Appleclub, 
del quale possono far parte 
utenti già esperti e aspiranti 
tali. Gli interessati possono 
contattare King. Pierantonio 
Delaude, c.so Matteotti 
H4, 18038 Sanremo. 

Phase II 
per Macintosh 

Adesso anche l'ultimo 
rampollo di casa Apple ha il 
suo hard-disk; è prodotto 
dalla Corvus, si chiama Pha¬ 
se II e la sua memoria è fra¬ 
zionabile, a discrezione del¬ 
l'utente, in quattro "forma¬ 
ti": il primo corrisponde a un 
normale dischetto, il secon¬ 
do a due, il terzo a quattro e 
il quarto a otto (cioè 400, 
800, 1.600 oppure 3.200 
Kb). Diviene così possibile 
salvare anche file molto lun¬ 
ghi, per i quali un dischetto 
non basterebbe. Poiché la 
disponibilità totale del siste¬ 
ma Phase II è di 45 Mb, il 
vantaggio costituito dai 
"formati" è anche un altro: la 
ricerca dei file salvati è infat¬ 
ti molto più veloce. 



Tutto nuovo 
questo chip 


Sembra un piccolo lingot¬ 
to d’oro. In realtà, relegan¬ 
te scatola nera che lo contie¬ 
ne informa che si tratta di un 
computer chip. Poi, però, 
cade l’occhio su un grande 
cartello che reclamizza que¬ 
sto strano oggetto misterio¬ 
so. Il più recente computer 
chip immesso sul mercato 
non è fatto di siliconi e non 
contiene alcuna memoria, 
ma impiastriccerà il vostro 
computer ed entrerà nella 
vostra bocca. Di sicuro lo ri¬ 
corderete, perché è fatto di 
cioccolata. La scoperta è av¬ 
venuta in California, a pochi 
passi da Sylicon Valley. Si 
può acquistare in un ristret¬ 
to numero di pasticcerie 
americane, i cui proprietari 
sono in genere sensibili alle 
nuove tecnologie. Costa 6 
dollari e 50 alla scatola, che 
contiene una tavoletta da 50 
grammi. L’equivalente di 
240.000 lire al chilo. Però! 


Corsi per 
tutti i gusti 

Volete introdurre il per¬ 
sonal computer nel vostro 
ufficio perché tutti ve lo con¬ 
sigliano, ma non avete anco¬ 
ra capito bene cosa ve ne fa¬ 
rete? Avete acquistato un 
Macintosh e volete informa¬ 
zioni dettagliatissime sul 
software disponibile? La vo¬ 
stra irrefrenabile curiosità 
professionale vi porta a desi¬ 


derare un accesso alle ban¬ 
che dati nazionali e interna¬ 
zionali? 

Non sono che tre dei molti 
quesiti a cui è possibile ri¬ 
spondere partecipando a 
uno dei parecchi corsi orga¬ 
nizzati per il 1985 dalla Et- 
noteam; durata media 1—2 
giornate, quota di iscrizione 
dalle 100 alle 600 mila lire, a 
seconda dell’argomento af¬ 
frontato e del personale 
coinvolto. Per informazioni, 
programmi e iscrizioni: G. 
Maserati, M. Oliva, Etno- 
team Spa, via Staro 4, 20134 
Milano, tei. 02/2141521. 

Per programmatori, tec¬ 
nici, manager, un nutrito ca¬ 
lendario di corsi specialistici 
viene proposto dalla Logica: 
fondamenti EDP, program¬ 
mazione strutturata, stan¬ 


dard di documentazione, si¬ 
stemi operativi, computer 
graphics ecc. La durata di 
ogni corso può variare tra i 
tre e i dieci giorni, con tarif¬ 
fe che vanno dalle 500 mila 
lire al milione e mezzo. Per 
informazioni, programmi e 
iscrizioni: Logica Spa, c.so 
Francia 197, 00191 Roma. 


Il disco è mio 
e lo uso solo io 

Si chiama Filelok il disco 
di data security della Vault, 
garantito contro tutti i tipi di 
ficcanaso e duplicatori, che 
costa poco e funziona dav¬ 
vero. 

Così come non esistono 
due impronte digitali uguali, 
non esistono due codici di 
protezione Filelok confon¬ 
dibili; in questo modo ogni 
dischetto è totalmente pro¬ 
tetto: le riproduzioni frau¬ 
dolente sono infatti inutiliz¬ 
zabili. 

Filelok si usa come un 
normale dischetto, e come 
tale lavora; alla fine basta 
solo, con semplicissime 
istruzioni, dire al computer 
quali sono i file da protegge¬ 
re, e in quale drive sono. Per 
l’Italia i dischetti Filelok so¬ 
no distribuiti dalla MEE, 
Memorie per elaboratori 
elettronici Spa, via Boni 29, 
20144 Milano, telef. 

02/4988541. 

a 
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Macintosh XL 

Tutto sommato nulla di 
nuovo tranne il prezzo che è 
sceso: forse per scaramanzia 
la Apple ha deciso di ribat¬ 
tezzare Lisa, il capostipite 
della generazione di perso¬ 
nal basati sulla tecnologia 
grafica e sul "mouse", Ma¬ 
cintosh XL (XL sta proprio 
per eXtra Large). Come di¬ 
cevamo prezzo più interes¬ 
sante: Lire 8.990.000 nella 
versione con disco rigido da 
10 Mega e 0,5 Mega di me¬ 
moria RAM. 


Appletalk 

Finalmente la Apple è 
nella rete: dopo un paio di 
tentativi non sviluppati fino 
alla commercializzazione, la 
Apple presenta una rete di 
connesione per i suoi perso¬ 
nal Macintosh e le periferi¬ 
che, capace di integrarsi an¬ 
che con altre reti, mainfra¬ 
me, ecc. 

Con una singola rete Ap- 
pleTalk si potranno connet¬ 
tere fino ad un massimo di 
32 dispositivi, in qualsiasi 
combinazione di computer e 
periferiche. Gli utilizzatori 
potranno così condividere 
tutte le periferiche collega¬ 
te, come memorie di massa 
in comune su disco rigido e 
la nuova stampante La¬ 
serWriter. Oltre che a sod¬ 
disfare queste possibilità, 
AppleTalk è stata progetta¬ 
ta in modo da interagire con 
altre reti. Si potranno con¬ 
nettere due o più reti Apple- 
Talk a reti più vaste, attra¬ 
verso bridge o gateway in¬ 
telligenti. Lo scopo finale è 
quello di integrare queste 
reti personali alle grandi re¬ 
ti, dando la possibilità a 
gruppi di lavoro diversi di 
comunicare tra loro o con il 
computer centrale ed effet¬ 
tuare scambi di dati. 

Stando alle informazioni 
che abbiamo raccolto, ben 
50 società negli Stati Uniti 
stanno sviluppando prodotti 
applicativi per la rete perso¬ 
nale AppleTalk. Ciò è stato 
reso possibile dal fatto che la 



Caratteristiche tecniche 
Appletalk: 

Topologia: Bus 
Architettura: Aperta 
Max connessioni : 32 
Mezzo di trasmissione: 
Doppino intrecciato scher¬ 
mato 

Connessione: Contatti pas¬ 
sivi 

Distanza operativa: 

Oltre 300 metri 
Velocità: 

230,4 Kilobits per secondo 
Protocollo di accesso: 
Accesso multiplo con test 
della disponibilità della li¬ 
nea (CSMA/CA) 

Formato di controllo: 

SLDC 

Configurazione: Autoconfi- 
gurante, nessun microinter¬ 
ruttore impostabile dall’u¬ 
tente o dispositivi di identifi¬ 
cazione. 


Apple ha pubblicato tutti i 
protocolli di colloquio per 
AppleTalk. L’architettura è 
dunque aperta a chiunque 
voglia sviluppare delle ap¬ 
plicazioni. 

Tutti i circuiti che suppor¬ 
tano AppleTalk sono già in¬ 
corporati nella famiglia di 
prodotti Macintosh: gli uti¬ 
lizzatori non avranno biso¬ 
gno di aprire le macchine 
per inserire schede di conne¬ 
sione. Il kit AppleTalk com¬ 
prende infatti solo una sca¬ 
toletta di derivazione ed un 
cavo di collegamento alla re¬ 
te. Qualche minuto e anche 
un non esperto può installa¬ 
re e configurare AppleTalk. 
Questo kit sarà in vendita da 
marzo 85 negli Stati Uniti al 
prezzo di 50 dollari: in Italia 
i’arrivo è previsto per set¬ 
tembre. 


Ma chi me 
lo assicura? 

Giacché si è nell’era infor¬ 
matica, le compagnie di assi¬ 
curazione hanno proposto 
sul mercato alcune polizze, 
variamente riadattate su 


modelli antichi, per tutelare 
contro tutti i rischi i centri di 
elaborazione dati e i più 
grossi e costosi computer; 
ma ai pericoli che corre un 
personal, portatile per defi¬ 
nizione, chi pensa? Se il suo 
incauto proprietario inciam¬ 
pa nel tappeto mentre lo 
sposta dal tavolo del sog¬ 
giorno alla scrivania dello 
studio, cosa accade di lui? 
Quello di infrangersi ruzzo¬ 
lando sul pavimento del cor¬ 
ridoio è un rischio che i 
grandi elaboratori certa¬ 
mente non corrono, e infatti 
nessuna polizza lo contem¬ 
pla. Resta dunque valido il 
vecchio, implacabile pro¬ 
verbio sui cocci? 

L’alternativa c’è, recente¬ 
mente messa a punto dalla 
Ras e da Applicando , ed è 
una polizza ideata su misu¬ 
ra, veramente "personaliz¬ 
zata", per il computer più 
diffuso e più indifeso: quello 
che costa dai 2 ai 15 milioni. 
Tra i molti incidenti contem¬ 
plati da questa polizza c’è 
appunto quello dell’infausto 
trasloco da stanza a stanza, 
oppure quello di un tampo¬ 
namento proprio quando l’i¬ 
gnaro personal è riposto nel 
bagagliaio dell’auto; e anco¬ 
ra: impiegate che impigliano 


le chiome nella stampante e 
si fanno male (gli sta bene, 
ma vaglielo a spiegare) ; figli 
viziati che picchiano con il 
martello sul video; voi stes¬ 
si, alle prese con un listato 
che vi sta conducendo al col¬ 
lasso, che rovesciate il caffè 
bollente sulla tastiera e 
mandate tutto in corto; ladri 
e scippatori, per i quali dal¬ 
l’autoradio all’Apple Ile il 
passo è breve... 

A casa, sul lavoro, al ma¬ 
re, durante i tragitti tra un 
qualsiasi posto e un qualsiasi 
altro, il personal computer è 
assicurato contro questi pe¬ 
ricoli, a un costo più che ra¬ 
gionevole: il premio annuo è 
di 50 mila lire per computer 
che valgono fino a 3 milioni, 
di 65 mila per computer da 3 
a 5 milioni, di 80 mila per 
computer da 5 a 7 milioni, 
eccetera. La copertura è to¬ 
tale: la polizza K&s-Appli¬ 
cando rimborsa interamente 
i costi di riparazione oppure 
il valore del computer, e si fa 
carico dei danni subiti da 
terzi. Gli interessati posso¬ 
no approfittare della cedola 
inserita alle pagine 43 e 44 di 
Applicando , oppure rivol¬ 
gersi direttamente alla Ras, 
telefonando al numero 
02/463675. 
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Schermo piatto 
per Apple //c 

Presentato come una 
grande novità all’introdu¬ 
zione sul mercato dell’Ap¬ 
ple Ile, dello schermo piatto 
a cristalli liquidi se ne erano 
perse le tracce. E, invece, 
un po’ in silenzio, eccolo che 
arriva sul mercato italiano: 
voci nemmeno troppo di 
corridoio lo danno già per 
esistente in buone quantità 
nel magazzino reggiano del¬ 
la Apple Computer. Speria¬ 
mo che qualche intoppo bu¬ 
rocratico non lo blocchi là 
come è successo per i tanto 
attesi modulatori a colori, 
sempre dell’Apple Ile. Ab¬ 
biamo potuto vederlo all’o¬ 
pera solo per pochi minuti: 
ci sembra un prodotto sim¬ 
patico e pratico anche se, 
per problemi di spazio, de¬ 
forma le immagini schiac¬ 
ciandole un po’, problema 
questo che non dà alcun fa¬ 
stidio se si lavora con testi 
soltanto. Costa 1.290.000 li¬ 
re più Iva. 


Proscuola 
fa il bis 

Dopo il successo ottenuto 
un anno fa, Proscuola ripro¬ 
pone agli insegnanti una fit¬ 
ta serie di incontri e tavole 
rotonde, per affrontare al¬ 
cuni dei temi fondamentali 
legati alla didattica e all’or¬ 


ganizzazione della scuola. 

Il filo conduttore della 
manifestazione, che si svol¬ 
gerà a Verona dal 20 al 24 
febbraio con il patrocinio 
del Ministero della pubblica 
istruzione, sarà l’analisi dei 
problemi connessi all’inse¬ 
gnamento delle discipline 
storiche nelle varie fasce 
scolari; tra i vari spunti, la 
funzione delle nuove tecno¬ 
logie, da affiancarsi ai meto¬ 
di tradizionali: come utiliz¬ 
zarle al meglio, come con¬ 
trollarne il funzionamento, 
come farne strumenti di 
educazione. 

Per ulteriori informazioni 
e adesioni: Ente fiere di Ve¬ 
rona, c.p. 525 37100 Vero¬ 
na, tei. 045/504022. 


In punta 
di software 

Superbase e Superscript: 
questi due programmi della 
Precision Software (un no¬ 
me che è una garanzia) sono 
forse i due più potenti pro¬ 
grammi di data base e di 
scrittura disponibili sul mer¬ 
cato per Apple// (le versioni 
in Italiano saranno disponi¬ 
bili rispettivamente a marzo 
e ad aprile). Superbase con¬ 
sente di lavorare con ben 15 
archivi contemporaneamen¬ 
te anche in maniera pro¬ 
grammata, sa far di calcolo e 
disegna pure. Chi usa Su¬ 
perscript può evitare di im- 
(continua a pag. 16 ) 
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AfTIDA 

I TUOI DATI 


Come editori di 
software, abbiamo 
sentito l'esigenza di 
utilizzare,per la produ¬ 
zione dei nostri program¬ 
mi, un supporto particolar¬ 
mente affidabile. Dopo severi 
ed accurati test abbiamo opera¬ 
to la scelta. Siamo lieti di propor¬ 
lo con il nostro marchio a chiunque 
desideri lavorare con la nostra stessa 
tranquillità. Floppy disk da 5" 1/4, sin¬ 
gola faccia, doppia densità, in confezione 
da 10 dischetti. Ordine minimo 10 dischetti. 
Ordini superiori solo multipli di 10 secondo la 
seguente scala di prezzi 


- 10 dischetti 
- da 20 a 50 dischetti 
- da 60 a 100 dischetti 
da 110 dischetti e oltre 


L. 5.000 cad. 
L. 4.700 cad. 
L. 4.400 cad. 
L. 3.900 cad. 


I prezzi sono comprensivi di IVA e spese di spedizione. 


Per ordinare ritagliate e spedite il tagliando sotto riportato a 
J. soft - via Rosellini, 12 - 20124 Milano 
Tel. 02/6888228 - 683797 - 6880841 - 6880842 - 6880843 


IO vi disk 


'à.SOft 


CEDOLA Di ORDINAZIONE OFFERTA DISCHETTI 

Da compilare e spedire in busta chiusa a 
J. soft - via Rosellini, 1 2 - 201 24 Milano 
Tel. 02/6888228 - 683797 - 6880841 - 6880842 - 6880843 

Ordino i seguenti dischetti, in confezione da 10 pezzi cad., per un importo 
totale di L . IVA e spese di spedizione incluse. 

□ N. dischetti (minimo 10 e multipli di 10) 

□ Contanti allegati 

□ Assegno allegato n° . 

□ Ho spedito l'importo a mezzo vaglia postale 

□ Ho versato l'importo sul CCP n° 1 9445204 intestato a J. soft - Milano 

□ Pagherò in contrassegno al postino al ricevimento dèi dischetti 


Nome .... 

Cognome ..... 

Via . 

CAP . Città . Prov.* 

Se richiesta fattura - codice fiscale . 

Data . Firma . 

Offerta valida solo per l'Italia. 
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LaserWriter 



Esempio deila possibilità di 
stampa in perfetta 
esecuzione con la nuova 
LaserWriter. 


parare a memoria i comandi 
che sono sempre indicati sul 
video e pronti all’uso, ha a 
disposizione 132 colonne sul 
video (spostando la finestra 
video), vede sempre il testo 
così come sarà stampato e 
può anche far di calcolo. Nei 
prossimi numeri troverete 
"prove su strada" e tante ap¬ 
plicazioni di questi due ma¬ 
gnifici prodotti. 

MacPublisher : non abbiamo 
ancora potuto provare la 
versione definitiva di questo 
programma, ma se mantie¬ 
ne le promesse sarà uno dei 
software più utili per i pos¬ 
sessori di Macintosh. Con¬ 
sente infatti di organizzare 
le pagine dei propri docu¬ 
menti come si desidera: scri¬ 
vendo su una, su due o su tre 
colonne, inserendo disegni 
dove si vuole, preparando 
intestazioni e titoli. Insom- 
ma una mini casa editrice al 
proprio servizio! 

PaintStar: prodotto in Ita¬ 
lia, è uno dei migliori pac¬ 
chetti di grafica disponibile 
per Apple //. Si può usare 
con il joystick oppure con il 
mouse ed è distribuito dalla 
EMS di Vigevano. 

Jazz: nuova creazione 
della Lotus Dev. Ine. Que¬ 
sto software per Macintosh 
integra 5 programmi (scrit¬ 
tura, foglio elettronico, 
schedario, grafica professio¬ 
nale e trasmissione dati) con 
la possibilità di interazione 
tra di essi. 

SicPack: finalmente la 
versione SicPack per Macin¬ 
tosh. Questo software per 
ingegneria civile, prodotto 
dalla Softing di Roma, era 
finora disponibile solo per 
Lisa. 

Microsoft: la famosa casa 
statunitense rappresentata 
dalla J.soft per i prodotti na¬ 
zionalizzati ha finalmente 
pronta la versione italiana 
del Multiplan per Macintosh 
e del Basic versione 2.0 sem¬ 
pre per Macintosh. 

MacCash: presentato dal¬ 
la Italware, questo software 
è la traduzione in italiano 
del programma per la ge¬ 
stione di cassa prodotto dal¬ 
la Peachtree. Sempre la Ital- 


ware ha presentato Controle 
X un software francese per 
la grafica, sempre su Macin¬ 
tosh. 

In arrivo direttamente 
dalla Apple MacProject e 
MacDraw. Ci vorrà ancora 
un po’ di pazienza per la ver¬ 
sione in italiano, ma siamo 
ormai sulla dirittura di arri¬ 
vo. Sempre dalla Apple ab¬ 
biamo visto in arrivo Mac- 
Terminal , come pure Jane , 
un software integrato con 
foglio elettronico, archivio e 
scrittura per Apple // con 
mouse prodotto dalla Ark- 
tronics. 


LaserWriter 

Questa nuova stampante 
è quanto di più avanzato si 
possa trovare nel campo del¬ 
le stampanti professionali. 
Solo poche case lìanno nel 
loro listino questo genere di 
prodotti. Fondamentalmen¬ 
te una stampante laser fun¬ 
ziona come una sofisticata 
fotocopiatrice, solo che 
l’immagine non viene forni¬ 
ta da una serie di lenti, ma è 
dal computer che, modulan¬ 
do un raggio laser, consente 
di sensibilizzare il rullo del 
riproduttore xerografico 
che a sua volta consentirà al 
toner, cioè l’inchiostro, di 
depositarsi sulla carta. Se 
pensate alla velocità con cui 
si può ottenere una fotoco¬ 
pia vi renderete conto che 
una stampante laser è in gra¬ 
do di darvi una copia stam¬ 
pata del vostro documento 
in solo 10/15 secondi! 

Alla Apple non nascon¬ 


dono la loro soddisfazione 
in questo prodotto anche 
perché la LaserWriter fa 
parte del progetto Macin¬ 
tosh Office e il suo uso può 
essere condiviso attraverso 
il nuovo sistema di interfac¬ 
cia AppleTalk da un gruppo 
di ben 31 personal compu¬ 
ter. 

Con questa nuova stam¬ 
pante è possibile ottenere 
testi con una definizione si¬ 
mile alla composizione tipo¬ 
grafica e grafici (o disegni) 
di altissima qualità, parago¬ 
nabili a quelli realizzati da 
uno studio professionale: 
tutto con una velocità ecce¬ 
zionale. 

Se poi si collega la La¬ 
serWriter ad un Macintosh 
potete ben immaginare qua¬ 
li risultati di qualità si possa¬ 
no ottenere, anche perché il 
collegamento tra queste due 


macchine è stato particolar¬ 
mente curato. 

Ma diamo un’occhiata a 
cosa c’è dentro. Oseremmo 
dire che questa stampante 
ha due cuori: il primo è la 
parte meccanica e cioè mec¬ 
canismi di movimento del 
foglio, tamburo di riprodu¬ 
zione e raggio laser. Tutta 
questa parte viene fornita 
dalla Canon (mod. 
LBP-CX 10) e poi integra¬ 
ta dalla Apple con il secon¬ 
do cuore: un potentissimo 
computer. Questo compu¬ 
ter è composto da un proces¬ 
sore Motorola 68000 funzio¬ 
nante a 12 Mhz (lo stesso 
presente nel Macintosh) da 
una memoria ROM di 0,5 
Megabyte e da una memoria 
RAM di ben 1,5 Megabyte . 
A cosa serva una simile po¬ 
tenza lo si capisce quando si 
viene a sapere che ovunque 
sulla pagina è possibile 
stampare con definizione di 
300 punti per pollice! 

Ma come in molte cose c’è 
un aspetto venale e tempo¬ 
rale: infatti la nuova La¬ 
serWriter sarà subito dispo¬ 
nibile sul mercato statuni¬ 
tense a 6.995 dollari, ma per 
vederla commercializzata in 
Italia dovremo attendere fi¬ 
no almeno a settembre. Una 
curiosità: i comunicati stam¬ 
pa diffusi sono stati prepara¬ 
ti con Macintosh collegato 
alla LaserWriter. 
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Se non volete problemi di memoria, 
meglio far lavorare 3M. 



I problemi di memoria di 
un’azienda trovano la prima rispo¬ 
sta nella 3M già nel 1951, anno in cui 
la 3M sviluppò il primo nastro ma¬ 
gnetico per computer. 

Questo dato la dice lunga sul 
primato di esperienze tecnologiche 
maturate in questo campo dalla 3M, 
sul patrimonio di qualità e affidabili¬ 
tà della produzione 3M nel settore 
dei supporti magnetici. 

Prendiamo le diskettes, ad 
esempio: omologate dai maggiori 
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DISTRIBUTORI 
AUTORIZZATI IN TUTTA 
ITALIA 

VEDI PAGINE GIALLE 
ALLA VOCE CENTRI 
MECCANOGRAFICI 
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Prodotti per l’Informatica 
Divisione Sistemi per l'Ufficio 

Sede: Via S. Bovio, 1/3 - 20090 Milano S. Felice - Segrate Tel. 02/75451 
Filiali: Torino Tel. 011/6192192 - Mestre Tel. 041/962255 - Genova Tel. 010/451801 - 
Bologna Tel. 051/557157 - Firenze Tel. 055/355841 - Roma Tel. 06/58421 - Napoli Tel. 081/660266 


costruttori, certificate al 100%, ga¬ 
rantite 5 anni, esportate in tutto il 
mondo, distribuite in Italia attraverso 
una rete capillare di 400 punti ven¬ 
dita. E soprattutto disponibili in una 
gamma completa sia nella misura 
da 8 pollici che in quella da 5 e 1/4, e 
con un esclusivo rivestimento ma¬ 
gnetico che consente un’eccezio¬ 
nale resistenza all’usura e la massi¬ 
ma affidabilità. 3M ha sempre una 
risposta pronta per i vostri 
mi di ufficio. 


E non solo con i prodotti per l'in¬ 
formatica. Ma anche con i sistemi di 
fotocopiatura, microfilmatura, visual 
e di telecomunicazione. 

Perchè 3M lavora offrendo so¬ 
luzioni “ad alta tecnologia” per il vo¬ 
stro ufficio. E per tutti gli uffici. 

3M. SISTEMI 
PER L’UFFICIO 

























Per chi non ha familiarità con il brid¬ 
ge diremo che si tratta di un gioco di 
carte per quattro giocatori (due cop¬ 
pie), nel quale si impiega un normale 
mazzo di 52 carte. L’intero mazzo vie¬ 
ne distribuito in parti uguali, e i com¬ 
pagni di coppia sono seduti l'uno di 
fronte all’altro nella disposizione 
nord/sud e<^ est/ovest. Scopo del gioco 
è quello di aggiudicarsi la dichiarazio¬ 
ne e poi di realizzarla eseguendo il 
numero opportuno di prese. Ciascun 
giocatore determina la propria dichia¬ 
razione valutando per prima cosa la 
forza della sua mano. Ciò si esegue 


Con questo 
programma si può 
giocare a bridge contro 
l’Apple al fine di 
perfezionarsi nella 
dichiarazione. 

, Il programma, 
~ ' in Applesoft, 
visualizza il gioco 
in grafica ad alta 
risoluzione e tiene 
il punteggio, facendo 
al tempo stesso 
da degno avversario. 


r 

A 

♦ 

A 

♦ 


K 

!!♦ 


l * 

3 

♦ 

♦ 


♦ db 

£ w 

_ ■— 

♦ 

£ 


Q uesto programma simula il gioco 
del bridge utilizzando la grafica 
ad alta risoluzione dell’Apple II, del 
//e o del //c. E’ per un giocatore, e 
comprende dichiarazione, prese e 
punteggio. Il giocatore gioca soltanto 
mani di offesa, mentre il computer 
gioca in difesa. Per rendere competiti¬ 
vo il gioco vengono assegnati punti al 
computer (dove è appropriato farlo) 
senza che questo faccia la dichiarazio¬ 
ne o giochi la mano. In altre parole è 
del tutto possibile perdere con l’Apple 
se "non si giocano le carte giuste". E’ 
un gioco che stimolerà il giocatore 
esperto, e al pricipiante darà ore di 
esercizio e insieme di divertimento. 


Che cos’è il bridge? 






contando i punti delle carte alte della 
mano (l’asso vale 4 punti, il re 3 punti, 
la dama 2 punti e il fante 1 punto). 
Normalmente la coppia ha bisogno di 
almeno 20 punti complessivi per fare 
una dichiarazione di uno (una dichia¬ 
razione di uno richiede sette prese per 
realizzare il contratto, una dichiara¬ 
zione di due richiede otto prese e così 
via). Il rango dei colori segue l’ordine 
decrescente di picche, cuori, quadri e 
fiori; per esempio una dichiarazione di 
due cuori è più alta di una dichiarazio¬ 
ne di due fiori. Il giocatore che fa la 
dichiarazione più alta designa il colore 
di "atout" (di solito il colore "più forte e 
più lungo" della sua mano). 

Una "presa" consta di quattro carte, 
una giocata da ciascuna mano in dire¬ 
zione oraria. Il vincitore della presa 
ottiene anche il diritto di giocare la 
prima carta della presa seguente. Una 
presa si vince giocando la carta più alta 
del colore al quale si gioca, o un atout 
se si è privi di carte di quel colore. 
Ogni giocatore deve giocare una carta 
dello stesso colore di quella avversaria 
se possibile. 

Il punteggio consiste in 20 punti per 
ogni presa oltre le sei prese se l’atout è 
fiori o quadri, e in 30 punti per ogni 
presa oltre sei se l’atout è cuori o pic¬ 
che. Se non viene realizzata la dichia¬ 
razione la coppia avversaria riceve 50 
punti per ogni presa mancata. La par¬ 
tita è vinta dalla prima coppia che rea¬ 


lizza 100 o più punti, e la coppia che 
prevale in due smazzate su tre vince 
l’incontro. 




Come si gioca 

Ecco descritto passo per passo come 
si gioca a bridge con il nostro program¬ 
ma: 

1. Dopo l’esecuzione del programma 
apparirà la richiesta di introdurre il 
mese (in cifre), il giorno e l’anno. 
Questo schema di numeri genera un 
trattamento casuale che assicura una 
mano diversa ogni volta che si gioca. 
Basta immettere questa data una volta 
sola, all’inizio della seduta. 

2. Il computer distribuisce poi quattro 
mani (visibili in grafica ad alta risolu¬ 
zione) e presenta la mano del giocato¬ 
re (Sud) in pochi secondi. Le carte 
appaiono come rettangoli di 17 per 25 
pixel con il numero o la lettera della 
carta nella metà superiore del rettan¬ 
golo, e il colore indicato nella metà 
inferiore. La mano è disposta per colo¬ 
re (picche, cuori, quadri, fiori) in ordi¬ 
ne di valore delle carte decrescente 
per ciascun colore. Le picche e i quadri 
sono spostati della lunghezza di mezza 
carta in su rispetto allq fila dei cuori e 
dei fiori perché si possano distinguere 
ancor meglio i colori. 

3. Il programma alterna la prima di¬ 
chiarazione fra Nord (mano del com- 


■■■ 








pagno del giocatore) e Sud (mano del 
giocatore). Nord dichiara presentan¬ 
do l’immagine di una carta al centro 
dello schermo. Una carta vuota sta a 
significare un "passo", e una carta sen¬ 
za colore indica una dichiarazione sen¬ 
za atout. Quando appare la parola 
"BID" il giocatore dichiara battendo il 
numero dichiarato e la prima lettera 
dell’atout; in altre parole 2P è una di¬ 
chiarazione di due picche, P vuol dire 
passo e S equivale a senza atout. (Un 
"bip" del computer segnala una dichia¬ 
razione illegale). La dichiarazione di 
Sud compare nello stesso modo, come 
immagine di una carta, immediata¬ 
mente sotto la dichiarazione di Nord e 
alla destra dell’ultima dichiarazione di 
Sud. Nord riconosce la maggior parte 
delle convenzioni di dichiarazione più 
semplici, comprese la dichiarazione 
senza atout e quella "a salto". Se si 
preme il tasto ESC durante la licitazio¬ 
ne saranno visualizzati la proiezione 
della dichiarazione di Est/Ovest e il 
punteggio corrente (il che permette al 
giocatore di opporsi alla dichiarazione 
finale di E/O). 

4. Se ha fatto la dichiarazione più alta 
Est/Ovest vengono assegnati i punti a 
Est/Ovest senza che si giochi la mano, 
e comincia la smazzata successiva. Se 
si aggiudica la dichiarazione Nord/Sud 
viene visualizzata all’estrema sinistra 
la dichiarazione finale e compare alla 
sommità dello schermo la mano di 
Nord. Il programma è ora pronto a 
svolgere la parte del gioco riguardante 
le prese. 

5. Le carte vengono giocate al centro 
dello schermo nella maniera tipica del 
bridge. E’ il computer a giocare le ma¬ 
ni di Est e di Ovest. Il giocatore con¬ 
trolla Nord e Sud introducendo dap¬ 
prima il numero o lettera della carta e 
battendo poi la prima lettera del colo¬ 
re. (Per il 10 e per le figure vengono 
usate le lettere D, J, Q e K). Per esem¬ 
pio 4C è il quattro di cuori; KF è il re di 
fiori. Se la carta scelta non esiste nella 
mano del giocatore, il computer farà 
"bip" e chiederà una nuova immissio¬ 
ne. Per eliminare dallo schermo l’at¬ 
tuale presa si batta qualsiasi lettera 
tranne A (A segnala una rivendicazio¬ 
ne delle prese restanti). Le prese vin¬ 
centi vengono accatastate all’estrema 
destra di mano in mano che le carte 
giocate scompaiono dalle mani di 
Nord e di Sud. 

6. Alla fine della mano il giocatore può 
rivedere il punteggio premendo il ta¬ 
sto ESC (o qualsiasi altro tasto per 
dare inizio alla successiva smazzata). 
Lo score visualizza i punti "sopra la 
riga", i punteggi delle tre smazzate 


LISTATO 1: TAVOLA DELLE 
FIGURE DEI COLORI 


*6200. 

62F7 







6200- 

07 

00 

10 

00 

1B 

00 

23 

00 

6208- 

30 

00 

56 

00 

B0 

00 

06 

00 

6210- 

E4 

3F 

37 

36 

20 

75 

F6 

3F 

6218- 

27 

24 

00 

2D 

37 

36 

36 

3E 

6220- 

2D 

05 

00 

20 

0E 

0E 

36 

1E 

6228- 

1E 

3F 

24 

24 

24 

00 

00 

00 

6230- 

2D 

26 

2C 

34 

36 

2E 

26 

24 

6238- 

24 

2C 

34 

36 

36 

36 

2E 

26 

6240- 

24 

24 

24 

24 

34 

35 

36 

36 

6248- 

36 

26 

25 

24 

24 

34 

35 

36 

6250- 

26 

25 

34 

20 

05 

00 

36 

35 

6258- 

24 

24 

35 

36 

36 

35 

24 

24 

6260- 

34 

35 

36 

36 

35 

24 

24 

34 

6268- 

35 

36 

36 

2C 

24 

24 

20 

34 

6270- 

36 

36 

2C 

24 

24 

2C 

34 

36 

6278- 

36 

2C 

24 

24 

2E 

36 

06 

00 

6280- 

2D 

1E 

3F 

3F 

3F 

0E 

20 

20 

6288- 

1E 

3F 

0E 

05 

00 

36 

35 

24 

6290- 

24 

35 

36 

36 

35 

24 

24 

34 

6298- 

35 

36 

36 

35 

24 

24 

2C 

34 

62A0- 

36 

36 

2C 

24 

24 

2C 

34 

36 

62A8- 

36 

2C 

24 

24 

2E 

36 

06 

00 

62B0- 

36 

35 

24 

24 

25 

36 

36 

26 

6288- 

25 

24 

24 

25 

36 

36 

2E 

36 

62C0- 

26 

24 

24 

24 

24 

2E 

36 

36 

62C8- 

2E 

26 

24 

24 

2E 

36 

36 

2E 

6200- 

24 

24 

2E 

36 

06 

00 

35 

25 

62D8- 

2D 

36 

24 

20 

2E 

2C 

3C 

3F 

62E0- 

3F 

3F 

27 

25 

35 

20 

20 

2C 

62E8- 

2E 

3F 

3F 

24 

27 

27 

25 

35 

62F0- 

36 

25 

25 

27 

04 

00 

58 

FF 


possibili e un totale generale. Per vin¬ 
cere la partita occorrono due "man¬ 
che" e per lo "slam" vengono assegnati 
punti supplementari. La smazzata suc¬ 
cessiva ha inizio quando si preme qual¬ 
siasi tasto tranne N (se si batte N il 
gioco termina). 

Come salvare ed eseguire 
il programma 

Il programma consiste in un listato 
in Basic (Applesoft) e due tavole delle 
figure. Le tavole delle figure sono uti¬ 
lizzate per disegnare i colori, le lettere 
e i numeri. Si usi il Monitor per intro¬ 
durre i listati delle tavole delle figure 
nel modo descritto nell’articolo Per 
chi comincia , a pag. 74-75 di Appli¬ 
cando . Si salvi la prima tavola delle 
figure (Listato 1) usando il comando: 


BSAVE SUITS, A$6200, L$F8 


Si ripeta il procedimento per la secon¬ 
da tavola delle figure (Listato 2) usan¬ 
do il comando: 


BSAVE CARDS, A$6000, L$1F4 


LISTATO 2: TAVOLA DELLE 
FIGURE DELLE CARTE 


*4000.61F3 


6000- 

0F 

00 

20 

00 

F6 

00 

01 

01 

6008- 

OC 

01 

16 

01 

21 

01 

2B 

01 

6010- 

32 

01 

3F 

01 

49 

01 

56 

01 

6018- 

5E 

01 

6B 

01 

77 

01 

84 

01 

6020- 

36 

36 

36 

36 

36 

36 

36 

36 

6028- 

36 

36 

36 

36 

25 

24 

24 

24 

6030- 

24 

24 

24 

24 

24 

24 

24 

24 

6038- 

2C 

36 

36 

36 

36 

36 

36 

36 

6040- 

36 

36 

36 

36 

36 

25 

24 

24 

6048- 

24 

24 

24 

24 

24 

24 

24 

24 

6050- 

24 

2C 

36 

36 

36 

36 

36 

36 

6058- 

36 

36 

36 

36 

36 

36 

25 

24 

6068- 

24 

24 

24 

24 

24 

24 

24 

24 

6068- 

24 

24 

2C 

36 

36 

36 

36 

36 

6070- 

36 

36 

36 

36 

36 

36 

36 

25 

6078- 

24 

24 

24 

24 

24 

24 

24 

24 

6080- 

24 

24 

24 

2C 

36 

36 

36 

36 

6088- 

36 

36 

36 

36 

36 

36 

36 

36 

6090- 

25 

24 

24 

24 

24 

24 

24 

24 

6098- 

24 

24 

24 

24 

2C 

36 

36 

36 

60A0- 

36 

36 

36 

36 

36 

36 

36 

36 

60A8- 

36 

25 

24 

24 

24 

24 

24 

24 

6080- 

24 

24 

24 

24 

24 

2C 

36 

36 

6088- 

36 

36 

36 

36 

36 

36 

36 

36 

60C0- 

36 

36 

25 

24 

24 

24 

24 

24 

60C8- 

24 

24 

24 

24 

24 

24 

2C 

36 

6000- 

36 

36 

36 

36 

36 

36 

36 

36 

6008- 

36 

36 

36 

25 

24 

24 

24 

24 

60E0- 

24 

24 

24 

24 

24 

24 

24 

2C 

60E8- 

36 

36 

36 

36 

36 

36 

36 

36 

60F0- 

36 

36 

36 

36 

06 

00 

20 

20 

60F8- 

36 

3E 

3F 

37 

36 

20 

20 

05 

6100- 

00 

20 

20 

36 

3E 

2F 

35 

36 

6108- 

3F 

3F 

07 

00 

36 

2E 

20 

25 

6110- 

24 

36 

36 

36 

06 

00 

3F 

3F 

6118- 

36 

2E 

20 

35 

36 

3F 

3F 

0? 

6120- 

00 

36 

36 

36 

20 

20 

24 

3C 

6128- 

3F 

07 

00 

20 

20 

36 

36 

36 

6130- 

06 

00 

24 

20 

2D 

36 

36 

36 

6138- 

3F 

3F 

24 

2C 

20 

05 

00 

3F 

6140- 

27 

24 

20 

20 

36 

36 

36 

06 

6148- 

00 

36 

36 

36 

00 

24 

24 

24 

6150- 

20 

36 

36 

36 

3F 

00 

36 

36 

6158- 

36 

3F 

3F 

24 

04 

00 

3F 

24 

6160- 

24 

24 

2D 

20 

36 

36 

1F 

0E 

6168- 

0E 

05 

00 

36 

36 

36 

40 

E1 

6170- 

1C 

1C 

OC 

OC 

OC 

05 

00 

24 

6178- 

24 

24 

20 

20 

36 

36 

36 

24 

6180- 

3C 

3F 

07 

00 

36 

36 

36 

36 

6188- 

36 

36 

36 

36 

25 

24 

24 

24 

6190- 

24 

24 

24 

24 

2C 

36 

36 

36 

6198- 

36 

36 

36 

36 

36 

25 

24 

24 

61A0- 

24 

24 

24 

24 

24 

2C 

36 

36 

61A8- 

36 

36 

36 

36 

36 

36 

25 

24 

61B0- 

24 

24 

24 

24 

24 

24 

2C 

36 

61B8- 

36 

36 

36 

36 

36 

36 

36 

25 

Ó1C0- 

24 

24 

24 

24 

24 

24 

24 

2C 

61C8- 

36 

36 

36 

36 

36 

36 

36 

36 

6100- 

25 

24 

24 

24 

24 

24 

24 

24 

6108- 

2C 

36 

36 

36 

36 

36 

36 

36 

61E0- 

36 

25 

24 

24 

24 

24 

24 

24 

61E8- 

24 

24 

00 

FF 

FF 

FF 

FF 

FF 

61F0- 

FF 

FF 

FF 

FF 












LISTATO 3: BRIDGE 


TAVOLA 1: 

SUBROUTINE PRINCIPALI 


1(X)Sezione logica principale 

200 Cancella attuale presa 

260 Disegna su catasta presa 
vincente 

360 Cancella carta giocata dalla 
mano 

550 Inizializza istruzioni DIM e 
mise. 

680 Inizializza variabili com¬ 
presa distribuzione 
1510 Visualizza mano dopo di¬ 
stribuzione iniziale 
1920 Disegna figura di fondo 
della carta 

1960 Disegna numeri e lettere 
2230 Disegna figure dei colori 
2350 Sezione dichiarazione 
2470 Determina punti di Nord e 
Sud 

2670 Dichiarazione di Nord 
3200 Dichiarazione di Sud 
3620 Sezione prese 
3810 Esce Ovest 
5120 Esce Nord 
5560 Esce Est 
6280 Esce Sud 
7150 Sezione score 


per salvarla sul dischetto. Infine si in¬ 
troduca il programma in Basic visibile 
nel Listato 3 e lo si salvi con il coman¬ 
do SAVE BRIDGE. Si rammenti di 
salvare sia le due tavole delle figure sia 
il programma in Basic sullo stesso di¬ 
schetto. Adesso si è pronti a eseguire il 
programma semplicemente battendo 
RUN BRIDGE. 

Come funziona 
il programma 

Il programma in Basic è del tutto 
modulare e facile da modificare. Se si 
vuol cambiare il programma dovreb¬ 
bero essere di aiuto le subroutine prin¬ 
cipali listate nella Tavola 1 e le variabi¬ 
li principali listate nella Tavola 2. Ecco 
una spiegazione particolareggiata del¬ 
la logica del programma. Le linee 10- 
130 costituiscono la sezione principa¬ 
le. Il controllo del programma fa tor¬ 
nare sempre a questo modulo. Si noti 
che l’istruzione LOMEM deve essere 
la prima istruzione (linea 20) allo sco¬ 
po di proteggere le variabili dalla gra¬ 
fica Hi-Res. Le tavole delle figure so¬ 
no caricate daH’interno del program¬ 
ma in BASIC alle linee 40 e 50. La 


1 REM BRIDGE 

2 REM BY APPLICANDO & 

3 REM MICROSPARC 
20 LOMEM: 25400 
30 D$ = CHRI (4) 

40 PRINT 0V6L0AD CARDS 0 
PRINT Wj-BLOAD SU1TS' 

60SUB 550 
G0SUB 680 
G0SU6 2350 

GOSUB 7670: G0SUB 1600: GOSUB 1780 
IF <NB + SB) < 1 OR RS > = (NB ♦ SB) THEN 
GOSUB 3620 
GOSUB 7150 

GOTO 70: REM FINE LOGICA PRINCIPALE 
GOSUB 4420 

IF QE < QN THEN U = 2:HC = 0 
RETURN 
GOSUB 4190 
IF QU < QS THEN U = 

RETURN 

HC0L0R= 1 : GET AX* 

210 X = 90iY = 81:0 = 1: 

220 X = 130:Y = 59:0 = 1: 

230 X = 170:Y = 81:0 = 1: 


50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 


DOS 3.3 

ProDOS ^IHI 
APPLE //e 4p\W 
APPLE //c <*111 


GOSUB 7090: GOTO 120 


4:HC = 0 


GOSUB 1920 
GOSUB 1920 
GOSUB 1920 


105:0 = 1: GOSUB 1920 


240 X = 130 :Y 
250 RETURN 

260 HC0L0R= 3: GOSUB 1920 
270 HC0L0R= 6: DRAU 15 AT X ♦ 2,Y 
280 HCQL0R= 0: HPL0T X - 1,Y T0 X 
X - 1 ,Y 
RETURN 

F0R X7 = 13 T0 1 STEP - 


16,Y T0 X ♦ 16,Y + 24 T0 X - 1,Y ♦ 24 T0 


290 

300 

310 


320 

330 


IF (TP = 1 AND S(X7,PT) ) 0) OR (TP = 0 AND N(X7,PT) > 0) THEN Y7 = 1: 
RETURN 


NEXT 
RETURN 
340 Q = QU:R 
350 Q = QE:R 
360 X = 12 
IF RN = 


RU:X = 90:Y = 81: 
RE :X = 170 :Y = 81 


GOSUB 1830: RETURN 
GOSUB 1830: RETURN 


OR RN = 3 THEN Y = 25 
IF RN = 2 OR RN = 4 THEN Y = 12 
F0R Y7 = 4 T0 1 STEP - 1 
F0R X7 = 13 T0 1 STEP - 1 

IF X7 = Q AND Y7 = R THEN HC0L0R= 1:0 = 1: GOSUB 1920: RETURN 

IF N(X7,Y7) > 0 OR N(X7,Y7) = - 1 THEN X = X ♦ 20 

NEXT 


0:CE = 0:HC = 0: RETURN 


3 THEN Y = 153 

4 THEN Y = 140 


370 
380 
390 
400 
410 
420 
430 

440 NEXT 

450 CU = Q:CS = 0:CN = 

460 X = 12 

IF RS = 1 OR RS = 

IF RS = 2 OR RS = 

F0R Y7 = 4 T0 1 STEP - 
F0R X7 = 13 T0 1 STEP - 1 

IF X7 = Q AND Y7 = R THEN HC0L0R= 1:0 = 1: GOSUB 1920: RETURN 
IF S(X7,Y7) ) 0 OR S(X7,Y7) = - 1 THEN X = X + 20 
NEXT 
NEXT 

0 = 0: REM DIM 
SCALE= 1 : R0T= 0 

DIM N<13,4): DIM S(13,4): DIM E(13,4): DIM U(13,4) 

580 UB = 0:06 = 0: DIM G(l,2) 

590 MS = 0 :Df4 = 1 
GOSUB 620 
RETURN 

T0 1 
T0 2 


470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 


600 

610 

620 

630 


F0R X = 

F0R Y = 

640 G(X.Y) = 0 
650 NEXT 
NEXT 
RETURN 

F0R Q = 1 T0 13: REM INITIAL1Z2A VARIABILI E DISTRIBUZIONE 
F0R R = 0 T0 4 
700 N(Q,R) = 0:S(Q,R) = 0:E(Q,R) = 0:U(Q,R) = 0 
710 NE)h 
NEXT 

>8 = 1 :QE = 100:QU = 100 
IF MS = 1 THEN 840 

TEXT : HOME : VTAB 22: PRINT '*** IL BRIDGE DI -APPLIC^DO- 
': VTAB 1 

PRINT ‘INTRODUCI MESE, GIORNO, <W0 E ATTENDI' 

PRINT ‘LA DISTRIBUZIONE DELLE CARTE:' 


660 

670 

680 

690 


720 

730 

740 

750 


760 

765 

770 


INPUT 'MESE (IN CIFRE) ? ';M8 


Continua 


21 








TAVOLA 2: VARIABILI PRINCIPALI 

Variabile 

Definizione 

X,Y,Q,R 

Uso generale 

Matrici N.S.E.W 

Carte 

QN.QS,QE,QW 

Numero carte 

RN.RS.RE.RW 

Numero colori 

CN,CS,CE,CW 

Flag per determinare se carta giocata 

DN,BC,BN 

Contatori distribuzione e dichiarazione 

T2 

Numero totale delle prese vincenti 

NB,SB 

Dichiarazione di Nord e Sud 

NP,SP 

Punti di Nord e Sud 

T,ST$ 

Numero e prima lettera del colore di atout 

PT,TN 

Indicatori temporanei di atout 

TP 

Numero del colore di atout di Nord (1-4) 

NT 

Somma dei valori facciali delle carte di atout di Nord 

Y7 

Flag per indicare gioco illegale 

XX 

Numero degli atout nella mano di Nord 

w 

Vincente della presa 

Q$,R$ 

Numero di stringa e colore della carta giocata 

Matrice G 

Totali di manche 

ZZ 

Dichiarazione massima di Nord e flag di fine manche 

o 

Flag per attivare rumore della carta 

X8,Y8 

Tracciamento punti per presa vincente 

UB,OB 

Punti sopra la riga 


sezione procede poi a chiamare gli al¬ 
tri moduli principali che cominciano 
alle linee 550 (Inizializzazione), 680 
(Distribuzione), 2350 (Dichiarazio¬ 
ne), 3620 (Prese) e 7150 (Punteggio). 

Le linee 550-670 definiscono le ma¬ 
trici N, S, E e W che rappresentano 
rispettivamente le mani di Nord, Sud, 
Est e Ovest. Il primo indice corrispon¬ 
de al numero della carta meno uno (il 
numero dieci e le figure sono rappre¬ 
sentati dai numeri 9-13) e il secondo 
indice è il numero del colore (fiori = 1, 
quadri = 2, cuori = 3, picche = 4). La 
matrice G, che contiene i totali del 
gioco, è impostata su zero in questa 
sezione. Questa subroutine viene ese¬ 
guita soltanto una volta per seduta, 
dato che eseguendola una seconda 
volta si avrebbe come conseguenza un 
errore di REDIMENSIONED AR¬ 
RAY (matrice ridimensionata). 

Le linee 680-1050 distribuiscono le 
carte a ciascuna mano scegliendo ca¬ 
sualmente gli indici nelle linee 890 e 
900, e poi fissando l’elemento di matri¬ 
ce uguale al suo primo indice (linee 
920-950). La variabile S8 è un interrut¬ 
tore inteso a determinare quale matri¬ 
ce riceverà il valore seguente. Si noti 
che gli elementi della matrice sono im¬ 
postati su zero nelle linee 680-720 pri¬ 
ma della distribuzione (a indicare che 
la carta non è presente). 

Le linee 2350-2660 determinano i 
totali dei punti per Nord e Sud. La 


variabile NT nella linea 2500 è usata 
per determinare il colore più forte nel¬ 
la mano di Nord; in altri termini NT 
rappresenta la somma dei numeri di 
carta per ciascuna mano. Le variabili 
D8 e T8 sono usate nelle linee 2500- 
2510 per determinare i punti dei vuoti 
nelle mani rispettivamente di Nord e 
Sud. Il totale finale dei punti per Nord 
e per Sud (NP e SP) è calcolato nelle 
linee 2570-2620 che cercano le figure 


(qualsiasi elemento maggiore di 0 con 
primo indice maggiore di 9). Per esem¬ 
pio se l’asso di picche esiste nella mano 
di Nord l’elemento N(13,4) è uguale a 
13, e il valore totale dei punti per que¬ 
sta carta è 13 meno 9, che è uguale a 4 
(linea 2590). Dopo che sono stati de¬ 
terminati i punti totali viene calcolata 
a linea 2640 la dichiarazione massima 
(ZZ) di Nord facendo uguale a 20 pun¬ 
ti una dichiarazione di uno, e aggiun¬ 
gendo tre punti a ogni dichiarazione 
successiva. 

Le linee 2670-3190 determinano 
l’effettiva dichiarazione di Nord (NB). 
La linea 2680 controlla se ci sia una 
dichiarazione di apertura senza atout. 
Se Nord ha sette atout (XX = numero 
degli atout a linea 2710) e il totale dei 
punti è inferiore a 20 Nord apre di tre. 
Se Nord ha più di sei atout Nord può 
dichiarare "a salto", a linea 2720. Se 
Nord non ha una dichiarazione d’aper¬ 
tura (minimo 13 punti) o una dichiara¬ 
zione di risposta all’apertura di Sud 
(minimo 6 punti) Nord passa, nella 
linea 2760. Se Nord ha più di 19 punti a 
linea 2770 Nord apre con una dichiara¬ 
zione di due. 

La linea 2840 determina la dichiara¬ 
zione minima di Nord, che è maggiore 
della dichiarazione di Sud (SB) ma pur 
sempre inferiore alla dichiarazione 
massima (ZZ). Il "fattore" della di¬ 
chiarazione finale di Nord è calcolato 
a linea 2920 usando la somma del nu¬ 
mero di dichiarazione (Q) con il nu¬ 
mero di atout (TP) diviso per 10. Per 
esempio una dichiarazione di due qua¬ 
dri produce un fattore di dichiarazione 
di 2 + 2/10 ossia 2.2; una dichiarazione 



Figura 1. Nord dichiara 1 cuori, Sud risponde 2 quadri, Nord insiste: 2 cuori. 
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PER IL TUO APPLE // 


Vi piacciono le regate? 0 preferite esplorare le caverne dell’Olimpo? Oppure vorreste 
avere sul vostro schermo il fantastico gioco della scimmia che scappa arrampicandosi sulle 
pareti lisce di un grattacielo? Siete invece tipi riflessivi e vi dilettate di musica? Non 
preoccupatevi, qui c’è sicuramente quello che fa per voi. Per gli amanti di tanti giochi tutti 
insieme è disponibile una raccolta. Per chi, infine, vuole migliorare le proprie capacità di 
programmatore, ecco tutti i trucchi del Basic su dischetto. E a prezzi eccezionali. 





Ap« Escap* 




REGATTA. Un gioco entusiasmante che farà 
impazzire marinai esperti e meno esperti di 
qualunque età. Ogni concorrente ha a 
disposizione una barca e un circuito. Poi ci 
sono i venti, gli ostacoli, gli imprevisti... Una 
grafica realistica vi farà volare tra le onde. 
Paddle o Joystick opzionali. Dischetto con 
programma e manuale in elegante 
confezione a sole 40.000 lire. 


CAVES 0F OLYMPUS. Oltre a una grafica a 
colori ultraprofessionale, questo gioco di 
abilità sfodera suoni ed effetti speciali di 
qualità nettamente superiore. Divertente, 
intrigante e irresistibile. Non richiede né 
paddle né joystick. Dischetto con 
programma e manuale in elegante 
confezione a sole 40.000 lire. 


APPLE ESCAPE. Una scimmia è fuggita dallo 
zoo e si arrampica sulle finestre di un 
grattacielo. Elicotteri le ronzano attorno e il 
guardiano dello zoo la insegue. Riuscirà a 
raggiungere il tetto e la libertà? Tutto dipende 
daquanto abilisiete. Grafica a colori. Non 
richiede né paddle né joystick. Dischetto con 
programma e manuale in elegante 
confezione a sole 40.000 lire. 



MUSIC GAMES. 12 programmi educativi e 
divertenti sul filo delle 7 note. Senza bisogno 
d’altro, il vostro Apple si tramuterà in un 
docile strumento musicale dal quale 
imparare e col quale divertirsi. Sono richieste 
le paddle o il joystick. Dischetto con 
programma e manuale in elegante 
confezione a sole 40.000 lire. 


APPLE GAMES. 11 giochi: Flip-Flop, 
Mastermind, Towers, Sherlock’s home, 
Attack of thè Zargons, Phaser Practice, 
Acey-Ducey, Big government, Tic-Tac-Toe, 
Qubic, Depth charge. E tre programmi di 
utilità: Shape table generator, Opening 
ceremonies, Master catalog. Per alcuni 
giochi sono richieste le paddle o il joystick. 
Dischetto con programma e manuale in 
elegante confezione a 50.000 lire. 


BASIC TRICKS FOR THE APPLE. 35 routine 
che renderanno molto più professionali i 
vostri programmi in Basic e che vi sarà 
facilissimo imparare utilizzando il manuale e 
il dischetto offerti in elegante confezione a 
sole 50.000 lire. 


Cognome e nome. 

Via.. N. 

Cap.Città .Provincia. 

Scelgo la seguente formula di pagamento: 

D Allego assegno non trasferibile di lire.intestato a Editronica srl, 

Corso Monforte 39, 20122 Milano 

D Allego ricevuta di versamento di lire.sul conto corrente postale 

n. 19740208, intestato a Editronica srl, Corso Monforte 39, 20122 Milano 


Sì! Inviatemi subito, senza aggravio di spese 
postali, il o i programmi contrassegnati con 
una crocetta. 


□ REGATTA. 40.000 lire. 

□ CAVES OF OLYMPUS. 40.000 lire. 

□ APPLE ESCAPE. 40.000 lire. 

□ MUSIC GAMES. 40.000 lire. 

□ APPLE GAMES. 50.000 lire. 

□ BASIC TRICKS FOR THE APPLE. 
50.000 lire. 






Data 


Firma 
















































780 INPUT "GIORNO ? ":D8 

790 INPUT a 0tK) ’ " ;T8 

800 1F T8 < (M8 + D8) THEN 760 

810 HGR2 : GOSUB 1060 

820 T8 = T8 - D8 - M8 

830 IF T8 < 1 THEN 760 

840 FOR M8 = 1 TO T8 

850 08 = RND (1) 

860 NEXT 

870 POKE - 16304,0: POKE - 16297,0: POKE - 16299,0: GOSUB 
3560 

880 FOR T8 = 1 TO 52 

890 R = INT (4 * RND (1) + 1) 

900 Q = INT (13 * RND (1) ♦ 1) 

910 IF <N(Q,R) ♦ S(Q.R) ♦ E(G,R) ♦ U(Q,R)> > 0 THEN 890 

920 IF S8 = 1 THET4 U(Q.R) = 9i$8 = 2:X = INT (74 * RND (1) 

+ 1):Y = INT (3? * RND (1) ♦ 60): GOSUB 260: GOTO 960 

930 IF S8 = 2 THEN N(Q.R) = Q:S8 = 3:X = INT (74 * RND (1) 

+ 90) :Y = INT <37 * RND (1)): GOSUB 260: GOTO 960 
940 IF SS = 3 THEN E(Q.R) = Q:S8 = 4:X = INT (74 * RND (1) 

♦ 180):Y = INT (37 * RT4D (1) ♦ 60): GOSUB 260: GOTO 9 
60 

950 S(Q.R) = Q:S8 = 1sX = INT (74 * RND (1) ♦ 90) :Y = INT 
(37 * Rf-ID (1) + 120): GOSUB 260 
960 NEXT 
970 MS = 1 

980 22 = 0:ST$ = "0":NB = - 1:SB = - 1:NT = 0:TN = 0:NP = 0 
:SP = 0 

990 DN = DN + 1:BC = 1 

1000 IF DN = 3 THEN DN = 1 

1010 T2 = 0 

1020 X8 = 221:Y8 = 51 

1030 BN = 1:PT = 0 

1040 GOSUB 450 

1050 RETURN 

1060 HCQLOR= 1 : REM COLORE FONDO 

1070 FOR Y = 0 TO 191 

1080 HPLOT 0,Y TO 279,Y 

1090 NEXT 

1100 RETURN 

1110 HCOLOR= 3 

1120 HPLOT X 4 2,Y TO X ♦ 15,Y 
1130 HPLOT X 4 2,Y + 23 TO X 4 15,Y 4 23 
1140 RETURN 
1150 X = X8:Y = Y8 

1160 IF X8 = 221 AND Y8 = 51 THEN GOSUB 260:X8 = X8 4 8:Y8 = 

Y8 4 12: RETURN 

1170 IF T2 = 7 THENX8 = 191 :Y8 = 55 
1180 X = X8:Y = Y8: GOSUB 260 
1190 X8 = X8 4 8:Y8 = Y8 4 12 
1200 RETURN 
1210 GOSUB 1430 
1220 FOR QW = 1 TO 13 

1230 IF U(QU,RU) > S(QS,RS) AND QW > QN THEN CU = 1 :U = 1 : RETURN 

1240 NEXT 
1250 GOSUB 5350 

1260 IF CU = 1 THEN U = 1 : RETURN 

1270 GOSUB 4190 

1280 IF Cl*i = 1 THEN RETURN 

1290 RW = T: GOSUB 4190 

1300 IF CU = 1 THEN U = 1 : RETURN 

1310 GOSUB 4130: RETURN 

1320 GOSUB 1470 

1330 FOR QE = 1 TO 13 

1340 IF E(QE,RE) ) N(QN,RN) AND QE ) QS THEN CE = 1:U = 3: RETURN 

1350 NEXT 
1360 GOSUB 4830 

1370 IF CE = 1 THEN U = 3: RETURN 

1380 GOSUB 4420 

1390 IF CE = 1 THEN RETURN 

1400 RE = T: GOSUB 4420 

1410 IF CE = 1 THEN U = 3: RETURN 

1420 GOSUB 4460: RETURN 

1430 FOR QN = 13 TO 1 STEP - 1 

1440 IF N(QN,RN) > 0 THEN RETURN 

1450 NEXT 

1460 QN = 0: RETURN 

1470 POR QS = 13 TO 1 STEP - 1 

1480 IF S(QS,RS) > 0 THEN RETURN 

1490 NEXT 

1500 QS = 0: RETURN 

1510 X = 12 

1520 POR R = 4 TO 1 STEP - 1 


1530 IF R = 4 OR R = 2 THEN Y = 140 

1540 IF R = 3 OR R = 1 THEN Y = 153 

1550 FOR Q = 13 TO 1 STEP - 1 

1560 IF S(Q,R) > 0 THEN 0=1: GOSUB 1830 

1570 NEXT 

1580 NEXT 

1590 RETURN 

1600 X = 12 

1610 FOR R = 4 TO 1 STEP - 1 

1620 IF R = 4 OR R = 2 THEN Y = 12 

1630 IF R = 3 OR R = 1 THEN Y = 25 

1640 FOR Q = 13 TO 1 STEP - 1 

1650 IF N(Q,R) ) 0 THEN 0 = 1: GOSUB 1830 

1660 NEXT 

1670 NEXT 

1680 RETURN 

1690 PR1NT 

1700 Q = Q - 1 

1710 IF Q = 0 THEN Q = 14 

1720 GOSUB 1830 

1730 RETURN 

1740 BC = BC ♦ 1 

1750 BN = BN ♦ 1 

1760 IF BC > 2 THEN BC = 1 

1770 RETURN 

1780 HCOLQR= 1:CH = 0 

1790 FOR Y = 59 TO 131 

1800 HPLOT 80,Y TO 279,Y 

1810 NEXT 

1820 HCGLOR= 3:CH = 3: RETURN 
1830 REM DISEGNA LE CARTE 
1840 HCQLOR= 3: GOSUB 1920 
1850 HCOLOR= 0 

1860 ON Q GOSUB 1960.1980.2000,2020,2040,2060,2080,2100,2120 
,2140,2160.2180.2200.2220 
1870 POKE 232,0: POKE 233,98 
1880 ON R GOSUB 2230.2260,2290,2320 
1890 HCOLQR= 1: HPLOT X - 2,Y 4 10 TO X - 2,Y 4 20 
1900 X = X 4 20 
1910 RETURN 

1920 POKE 232,0: POKE 233,96: DRAU 1 AT X,Y 
1930 IF 0 = 1 THEN 0=0: RETURN 

1940 AX = PEEK ( - 16336):AX = PEEK ( - 16336):AX = PEEK ( 
- 16336): REM RUMORE DELLA CARTA GIOCATA 
1950 RETURN 

I960 DRAU 2 AT X 4 6,Y 4 3 
1970 RETURN 

1980 DRAU 3 AT X 4 ó,Y 4 3 
1990 RETURN 

2000 DRAU 4 AT X 4 *,Y 4 3 
2010 RETURN 

2020 DRAU 5 AT X 4 10,Y + 3 
2030 RETURN 

2040 DRAU 6 AT X 4 6,Y 4 3 
2050 RETURN 

2060 DRAU 7 AT X 4 6,Y 4 3 
2070 RETURN 

2080 DRAU 8 AT X 4 6,Y 4 5 
2090 RETURN 

2100 DRAU 9 AT X 4 9,Y 4 6 
2110 RETURN 

2120 DRAU 10 AT X 4 é,Y 4 3 
2130 RETURN 

2H0 DRAU 11 AT X 4 10,Y 4 3 
2150 RETURN 

2160 DRAU 12 AT X 4 8,Y 4 9 
2170 RETURN 

2180 DRAU 13 AT X 4 6,Y 4 3 
2190 RETURN 

2200 DRAU 14 AT X 4 6,Y 4 9 
2210 RETURN 

2220 HPLOT X 4 8,Y 4 3 TO X 4 8,Y 4 9s RETURN 

2230 HCOLOR= 0 

2240 DRAU ? AT X 4 4,Y 4 19 

2250 RETURN 

2260 HCOLORs 5 

2270 DRAU 4 AT X 4 2,Y 4 17 

2280 RETURN 

2290 HCOLGR= 5 

2300 DRAU 5 AT X 4 2,Y 4 13 

2310 RETURN 

2320 HCOLOR= 0 

2330 DRAU 6 AT X 4 3,Y 4 17 

2340 RETURN 

2350 GOSUB 1060: GOSUB 1510: GOSUB 3430: REM DICHIARAZIONE 
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2360 GOSUB 2470 

2370 IF DN = 2 THEN 2420 

2380 IF NB = 0 AND SB > 0 THEN U = 4: RETURN 

2390 IF SB = 0 AND NB = 0 THEN RETURN 

2400 GOSUB 3200 

2410 GOSUB 1740 

2420 IF SB = 0 AND NB > 0 THEN W = 2: RETURN 
2430 IF SB = 0 AND NB = 0 THEN RETURN 
2440 GOSUB 2670 
2450 GOSUB 1740 
2460 GOTO 2380 

2470 FOR Y = 1 TO 4: REM DETERMINA I PUNTI DI N E S 
2480 DB = 0:T8 = 0:NT = 0 
2490 FOR X = 1 TO 13 

2500 IF N(X,Y) > 0 THEN NT = NT ♦ N(X,Y):D8 = D8 ♦ 1 
2510 IF S(X,Y) > 0 THEN T8 = T8 ♦ 1 
2520 NEXT 

2530 IF D8 < 3 THEN NP = NP ♦ 3 - D8 

2540 IF T8 < 3 THEN SP = SP ♦ 3 - T8 

2550 IF NT > TN AND D8 > 3 THEN TN = NT:TP = Y:PT = Y: GOSUB 
6830 
2560 NEXT 

2570 FOR Y = 1 TO 4 

2580 FOR X = 10 TO 13 

2590 IF N(X,Y) > 0 THEN NP = NP ♦ X - 9 

2600 IF S(X,Y) > 0 THEN SP = SP ♦ X - 9 

2610 NEXT 

2620 NEXT 

2630 FOR Q = 1 TO 7 

2640 IF (NP ♦ SP) > (16 ♦ 3 * Q) THET4 22 = Q 
2650 NEXT 
2660 RETURN 

2670 X = QE:Y = 59:TP = PT:QE = QE ♦ 20: IF SB > 0 THEN GOSUB 
3130: REM DICHIARAZIONE DI N 

2680 IF NB = - 1 AND SB < =0 AND NP > 19 AND XX < =4 THEN 
Q = 1 :TP = 0: GOTO 2920 

2690 R5 = 0: IF T < > M8 AND T < > (PT) AND SB > 0 THEN GOSUB 
6900 

2700 IF R5 = 1 THEN R5 = 0: GOTO 2880 

2710 IF XX = 7 AND (NP 4 SP) < 20 AND SB < 2 AND NB = - 1 THEN 

Q = 3: GOTO 2920 

2720 IF XX > 6 AND INT (SB) = 1 AND NB = - 1 THEN Q = 3: GOTO 
2920 

2730 IF XX > 6 AND SB < 7 THEN 2880 

2740 IF INT (NB) = 1 AND (STI = B S B OR INT (SB) = 3) THEN 

GOSUB 2940: GOTO 2880 

2750 IF (STI = "S* AND NB < 1) OR ( INT (SB) = 2 AND NB < 1 AND 
NP ) 5) THEN 2880 

2760 IF (SB < = 0 AND NP < 13) OR (SB > 0 AND NP < 6) THEN 
2870 

2770 IF SB < =0 AND NP > 19 AND NB = - 1 THEN Q = 2: GOTO 
2920 

2780 IF NB ) 0 AND BN > 2 AND BN < 5 THEN GOSUB 2940 

2790 IF D8 = 1 THEN 08 = 0: GOTO 2820 

2800 IF NB > 0 AND BN > 2 AND BN < 7 THEN GOSUB 3080 

2810 IF D8 = 1 THEN D8 = 0: GOTO 2820 

2820 FOR Q = 1 TO 7 

2830 IF TP = 0 THEN TP = 5 

2840 IF (Q 4 TP / 10) > SB AND Q < = 22 THEN 2920 

2850 NEXT 

2860 IF TP = 5 THEN TP = 0 

2870 HC0L0R= 3: GOSUB 1920:NB = 0: RETURN 

2880 FOR Q = 1 TO 7 

2890 IF TP = 0 THEN TP = 5 

2900 IF (Q + TP / 10) > SB THEN 2920 

2910 NEXT 

2920 NB = Q 4 TP / 10: IF TP = 5 THEN TP = 0 

2930 T = TP:R = TP: GOSUB 1690: RETURN 

2940 D8 = 0 

2950 FOR R = 1 TO 4 

2960 FOR Q = 13 TO 12 STEP - 1 

2970 IF (N(Q.R) ) 0 AND N(Q - 1,R) > 0) OR (N(Q.R) ) 0 AND N 
(G - 2,R) > 0) AND R < > PT THEN GOSUB 6980 
2980 IF D8 = 1 THEN RETURN 
2990 NEXT 
3000 NEXT 

3010 FOR R = 1 TO 4 

3020 FOR Q = 13 TO 12 STEF - 1 

3030 IF N(Q,R) ) 9 AND R < > PT THEN GOSUB 6980 

3040 IF D8 = 1 THEN RETURN 

3050 NEXT 

3060 NEXT 

3070 RETURN 

3080 D8 = 0 

3090 IF SB < = 0 OR T = 0 OR M8 = 0 THEN RETURN 

3100 IF T8 > 2 THEN D8 = 1:TP = M8 


3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 


3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 


3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 

3530 

3540 

3550 

3560 

3570 

3580 

3590 

3600 

3610 

3620 

3630 

3640 

3650 

3660 

3670 

3680 

3690 

3700 

3710 

3720 

3730 

3740 

3750 

3760 

3770 

3780 

3790 

3800 

3810 

3820 

3830 

3840 

3850 

3860 

3870 

3880 


IF DE > T8 AND DE > 2 THEN D8 = 1 :TP = T 
RETURN 

IF M8 = 0 OR SB < = 0 OR T = 0 THEN RETURN 
T8 = Q:DE = 0 
FOR Q = 1 TO 13 
T8 = T8 4 S(G,M8) 4 N(Q,M8) 

DE = DE 4 S(GiT) 4 N(Q,T) 

NEXT 
RETURN 
REM S BID 

X = QU:Y = 105:014 = QU 4 20 
HCOLQR= 0:0 = 1: GOSUB 1920: GOSUB 3490 
GET Gl 

IF Gl = CHRI (27) THEN GOSUB 3410:Y = 105: GOTO 3230 
IF Gl = *P* THEN SB = 0: HCOLOR= 3: GOSUB 1920: RETURN 


GET STI 
G = VAL (Gl) 

IF Q < 1 THEN CALL - 198: GOTO 3230 
IF Q ) 7 OR (STI < > 8 P' AND STI < > B C B AND STI < > 
"Q" AND STI < > , F B AND STI < > *S B ) THEN CALL - 198 
: GOTO 3230 

IF STI = 'F B THEN R = 1:T = 1 

IF STI = -Q" THEN R = 2:T = 2 

IF STI = "C B THEN R = 3:T = 3 

IF STI = B P B THEN R = 4:T = 4 

IF STI = B S B THEN R = 0:T = 0 

IF SB < 1 THEN M8 = T 
IF T = 0 THEN T = 5 
SB = Q 4 T / 10: IF T = 5 THEN T = 0 
IF SB < = NB THEN CALL - 198: GOTO 3230 
GOSUB 1690 
RETURN 

TEXT : HOME : GOSUB 7670: GOSUB 7480: PR1NT : IWERSE : 
PRINT "DICHIARAZIONE DI EST/OVEST: " INT (RS) ':EUI: 
NORNAL : PRINT : GET AXI 

POKE - 16304,0: POKE - 16297,0: POKE - 16299,0: RETURN 
REM DISEGNA N E S 

HCOLOR= 0:0 = 1:X = 80:Y = 59: GOSUB 1920 

HCQLOR= 3: HPLOT X 4 2.Y 4 15 TO X 4 2,Y 4 9 TO X + 6,Y 

4 15 TO X 4 6,Y 4 9: GOSUB 3550 

HCOLQR= 0:0 = 1:Y = 105: GOSUB 1920 

HCOLOR= 3: DRAW 5 AT X 4 6,Y 4 9: GOSUB 3550 

RETURN 

REM DISEGNA BID 

HCOLOR= 3: POKE 232,0: POKE 233,98 

DRAW 1 AT X 4 10,Y 4 3 

DRAW 2 AT X 4 7,Y 4 9 

DRAW 3 AT X 4 6,Y 4 17 

RETURN 

HPLOT X 4 10,Y 4 9 TO X 4 14,Y 4 9 TO X 4 14,Y 4 15 TO 
X 4 1Q.Y 4 15 TO X 4 10.Y 4 9: RETURN 
HCOLOR= 1 :X = 130 : Y = 59: GOSUB 1920:Y = 105: GOSUB 192 


0 

X = 12:Y = 81: GOSUB !920:X = 32: GOSUB 1920 
FOR Y = 145 TO 50 STEP - 1 
HPLOT 279,Y TO 190,Y 
NEXT 
RETURN 

GOSUB 6790: REM SE210NE PRESE 

IF PT < > M8 AND U = 2 AND T = M8 THEN W = 4 

IF PT < ) M8 AND W = 4 AND T = PT THEN W = 2 

ON W GOSUB 5120,5560,6280,3810 

GOSUB 4930 

GOSUB 200 

IF W = 2 OR W = 4 THEN T2 = T2 4 1 ; GOSUB 1150 
GOSUB 450 

UN W GOSUB 3810,5120,5560,6280 

GOSUB 4930 

FOR Q = 1 TO 13 

FOR R = 1 TO 4 

IF S(Q.R) > 0 THEN 3670 

NEXT 

NEXT 

IF AXI = 'A' THEN RETURN 
GOSUB 200 

IF W = 2 OR W = 4 THEN T2 = T2 4 1; GOSUB 1150 
RETURN 

W = 1 :FL = 0: REM ESCE OVEST 
GOSUB 4020 

IF CU = 1 THEN GOSUB 340: GOTO 3910 
GOSUB 5770 

IF CE = 1 THEN CE = G:HC = Ó:RW = RE: GOSUB 4190 
IF CU = 1 THEN GOSUB 340: GOTO 3910 
IF FI = 0 THEN FL = 1: GOSUB 5880: GOTO 3850 
GOSUB 4130 


Continua 
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CONTABILITÀ... 

IL PROBLEMA 
È SUPERATO 



La cometa ha 

realizzato i 
programmi più 
aggiornati e 
completi di 


contabilità generale e semplificata, 
programmati dai più affermati specia¬ 
listi del settore. | 

Telefonateci o scriveteci siamo a 
vostra disposizione per aiutarvi a 
risolvere il vostro problema. 


C^Oft/IET^K s.n.c. 

20154 MILANO 

Via Melzi d’Eril 38 - Tel. 5464468-3185007-3493785 


















un telefono anche al tuo computer 



Personal computer 


CX-21 

(Chiamante) 


Personal computer 


L’accoppiatore acustico CX-21 del¬ 
la Epson è uno strumento conveniente e 
affidabile dalle grandi prestazioni che 
dà la nuova dimensione delle telecomu¬ 
nicazioni al vostro computer. 

Il CX-21 funziona a batterie ricarica¬ 
bili ed è particolarmente adatto ai per¬ 
sonal computer portatili, come il PX-8 e 
HX-20, per esempio. 

Per accedere alle informazioni di 
una banca dati, o più semplicemente 
per comunicare con un altro computer 
basta inserire la cornetta e comporre il 
numero telefonico corrispondente. 

Leggero, compatto, elegante ed af¬ 
fidabile il CX-21 è progettato per adat¬ 
tarsi a tutti gli apparecchi telefonici e 
consentire lo scambio rapido e sicuro di 
programmi e dati. 

Caratteristiche 





SSr 


EPSON 


sono p 

da SEGI S.p.A. - Milano Via 




- Realizzato con speciali circuiti inte¬ 
grati CMOS 

- Funzionamento a batterie NiCd ricari¬ 
cabili 

- Funzionamento full-duplex o half-du- 
plex 

- Velocità di trasmissione fino a 300 bit- 
sec. 

- Interfaccia RS 232C 

- Dimensioni 297x95x42 mm 

- Peso 700 gr. 


EPSON CX-21 

Accoppiatore acustico 





















































di due picche ha un fattore di 2 + 4/10 
ossia 2.4. Come conseguenza dichiara¬ 
zioni uguali di colore diverso avranno 
rango del normale ordine decrescente 
di picche, cuori, quadri e fiori. 

Le linee 2950-3000 cercano un se¬ 
condo colore da dichiarare, sulla base 
della presenza di un asso e di un re (o 
di un asso e di una donna) in quel 
colore. Se non esiste una simile situa¬ 
zione le linee 3010-3060 cercano un 
secondo colore in cui sia presente un 
asso o un re. La subroutine a linea 
6980 assicura che il colore scelto non 
sia inferiore a quattro carte. 

Sud dichiara alle linee 3200-3400 
con rimmissione del numero di dichia¬ 
razione (Q$ a linea 3230) e del colore 
di atout (ST$ a linea 3260). Se la di¬ 
chiarazione di Sud non è valida (linee 
3280, 3290 o 3380) il controllo ripassa 
a linea 3230 per una nuova immissio¬ 
ne. Viene eseguita la subroutine dello 
score se il numero di dichiarazione è 
uguale al codice ASCII del tasto ESC 
a linea 3240. 

Le linee 3620-3800 controllano la 
parte del gioco riguardante le prese. 


Quando viene eseguita l’istruzione 
RETURN a linea 3800 il controllo tor¬ 
na al modulo logico principale di linea 
120, dove è chiamata la routine dello 
score. Dopo che la linea 3650 (esegui¬ 
ta una volta per mano) ha dato le di¬ 
sposizioni per l’attacco il loop compre¬ 
so fra le linee 3670 e 3740 entra in 
azione proseguendo fino a quando tut¬ 
ti gli elementi di matrice (matrice S) 
siano inferiori o uguali a zero nella 
linea 3740 (vale a dire fino a quando 
siano state giocate tutte le carte). Vie¬ 
ne eseguita dapprima a linea 3670 l’i¬ 
struzione GOSUB 200 per eliminare 
la vecchia presa (impostando il colore 
sul verde e disegnando una figura ret¬ 
tangolare sopra quelle delle carte). 
Poi le prese totali (T2) sono incremen¬ 
tate di uno a linea 3680 se il vincitore 
della presa è Nord (W = 2) o Sud (W 
= 4), e l’istruzione GOSUB 1150 dise¬ 
gna la presa vincente all’estrema de¬ 
stra dello schermo (coordinate deter¬ 
minate da X8 e Y8). Infine la linea 
3700 indirizza il programma al modulo 
appropriato per l’uscita seguente. 

Le linee 3810-4010 determinano le 


giocate da fare durante il gioco. 

Il gioco di Ovest 

Questa subroutine viene eseguita 
quando è Ovest (matrice W) a giocare 
la prima carta. Per prima cosa Ovest 
controlla quale sia la carta più alta nel 
modulo a linea 4020 (da linea 3820) e 
determina se questa carta sia più alta 
di quelle in possesso di Nord e di Sud 
(GOSUB 4090) . Se la carta è vincente 
l’interruttore di "carta trovata" (CW) 
viene impostato su uno e la carta è 
visualizzata dalla subroutine a linea 
340 (da linea 3830). Se Ovest non ha 
trovato una carta vincente (CW = 0) 
ripete una analoga procedura a linea 
3840 per trovare una carta vincente 
nella mano di Est (GOSUB 5770). Se 
Est possiede effettivamente la carta 
più alta (CE = 1) Ovest gioca la sua 
carta più bassa di quel colore a linea 
3850 (GOSUB 4190). Se Ovest non 
riesce a trovare una carta del colore 
vincente (linea 3870) cerca un vuoto 
nella mano di Est tramite la subrouti¬ 
ne a linea 5880. Se Ovest ancora non 


3890 IF CW = 1 THEN GOSUB 340; GOTO 3910 

3900 RW = T: GOSUB 4190: GOSUB 340 

3910 PT = RW:TP = 0: GOSUB 4870: GOSUB 1830: GOSUB 360 

3920 GOSUB 5030 

3930 IF HC = 1 AND U = 1 THEN GOSUB 4520: GOSUB 350: GOTO 3 
970 

3940 IF U = 1 THEN GOSUB 4580: GOSUB 350: GOTO 3970 

3950 IF RN = RW THEN RE = RN:RS = RE: GOSUB 1320: GOSUB 350: 

GOTO 3970 

3960 GOSUB 4760: GOSUB 350 

3970 TP = 1: GOSUB 4900: GOSUB 1830: GOSUB 460 

3980 IP HC = 1 AND RS < > T THEN RETURN 

3990 IF U) = 1 THEN GOSUB 4940: RETURN 

4000 IF U = 3 THEN GOSUB 4970: RETURN 

4010 GOSUB 5000: RETURN 

4020 F0R QUI = 13 T0 1 STEP - 1 

4030 F0R RW = 1 T0 4 

4040 IF W(QW,RU) ) 0 THEN GOSUB 4090 

4050 IF CW = 1 THEN RETURN 

4060 NEXT 

4070 NEXT 

4080 RETURN 

4090 F0R QN = QW T0 13 

4100 IF NCQN.RW) > 0 OR S(QN.RW) > 0 THEN RETURN 
4110 NEXT 

4120 CW = 1:HC = 1 : RETURN 
4130 F0R QW = 1 TO 13 
4140 F0R RW = 1 TO 4 

4150 IF W<QW,RW) > 0 AND RW < > T THEN CW = 1 : RETURN 

4160 NEXT 

4170 NEXT 

4180 RETURN 

4190 F0R QW = 1 T0 13 

4200 IF W<QW,RW) > 0 THEN CU = li RETURN 

4210 NEXT 

4220 RETURN 

4230 6ET 0$: GET R* 

4240 Q = VAL CQ$) 

4250 IF Q < > 0 THEN Q = Q - 1 

4260 IF 9 = 0 THEN GOSUB 4290 

4270 GOSUB 4350: IF Y7 = 1 THEN CALL - 198: GOTO 4230 

4280 RETURN 

4290 IF Q$ = -A- THEN Q = 13 

4300 IF Q$ = T THEN Q = 12 

4310 IF 0$ = a G* THEN Q = 11 

4320 IF 0$ = B J' THEN Q = 10 


4330 IF 0$ = -D" THEN Q = 9 

4340 RETURN 

4350 R = Q:Y7 = 0 

4360 IF R$ = B F B THEN R = 1 

4370 IF W s ; Q* THEN R = 2 

4380 IF R$ = •C" THEN R = 3 

4390 IF R$ = B P B THEN R = 4 

4400 IF R < } (PT) AND X7 < > 0 THEN GOSUB 300 

4410 RETURN 

4420 F0R QE = 1 T0 13 

4430 IF ECQE,RE) > 0 THEN CE = 1: RETURN 

4440 NEXT 

4450 RETURN 

4460 F0R QE = 1 T0 13 

4470 F0R RE = 4 T0 1 STEP - 1 

4480 IF ECQE,RE) > 0 ANO RE < > T THEN CE = 1 : RETURN 

4490 NEXT 

4500 NEXT 

4510 RETURN 

4520 RE = RW: GOSUB 4420 

4530 IF CE = 1 AND QE > QW THEN W = 3 

4540 IF CE = 1 THEN RETURN 

4550 GOSUB 4460 

4560 IF CE = 1 THEN RETURN 

4570 14 = 3 : RE = T: GOSUB 4420: RETURN 

4580 RE = RW: GOSUB 4610 

4590 IF CE = 1 AND QE ) QU THEN U = 3 

4600 GOSUB 4720: RETURN 

4610 F0R QE = 13 T0 1 STEP - 1 

4620 IF ECQE,RE) > 0 THEN CE = 1 : RETURN 

4630 NEXT 

4640 RETURN 

4650 F0R QE = 13 T0 1 STEP - 1 

4660 IF ECQE,RE) > NCQN.RN) THEN CE = 1: RETURN 

4670 NEXT 

4680 RETURN 

4690 GOSUB 4650 

4700 IF CE = 1 THEN W = 3: RETURN 

4710 GOSUB 4420: GOSUB 4720: RETURN 

4720 IF CE = 1 THEN RETURN 

4730 RE = T: GOSUB 4420 

4740 IF CE = 1 THEN W = 3: RETURN 

4750 GOSUB 4460: RETURN 

4760 RE = RW: GOSUB 4420 
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4770 IF CE = 1 THEN RETURN 
4780 RE = T: GOSUB 4830 
4790 1F CE = 1 THEN U = 3: RETURN 
4800 GOSUB 4460 
4810 IF CE = 1 THEN RETURN 
4820 RE = T: GOSUB 4420! RETURN 
4830 FOR QE = 1 TO 13 
4840 IF E(QE f RE) ) N*QN, 

4850 NEXT 
4860 RETURN 

4870 GOSUB 4230:QN = Q:Rf4 = R:X = 13Q:Y = 59 
4880 IF QN < 1 OR GN 
= 0 THEN CALL 
4890 RETURN 

4900 GOSUB 4230:QS = Q:RS = RsX = 130:Y 
4910 IF QS < 1 OR QS 


4) THEN CE = 1 : RETURN 


) 13 OR RN < 1 OR RN 
- 198: GOTO 4870 


> 4 OR N(QN,RN) < 


= 0 THEN CALL - 198: GOTO 4900 


105 

13 OR RS < 1 OR RS > 4 OR S(QS,RS) < 


4920 

RETURN 









4930 

S(QS,RS) 

= 

- 1 :N<QN, 

RN) = - : 

S:E(QE.RE) = 


= - 1: 

RETURN 







4940 

IF QS > 

QU 

AND RS 

= 

RU 

THEN U 

s 

4:HC = 

0 

4950 

IF RS < 

> 

RU AND 

RS 

= 

T THEN 

U 

= 4:HC 


4960 

RETURN 









4970 

IF QS ) 

QE 

AND RS 

= 

RE 

THEN U 

s 

4 : HC = 

0 

4980 

IF RS < 

> 

RE AND 

RS 

= 

T THEN 

u 

= 4:HC 


4990 

RETURN 









5000 

IF QS > 

QN 

AND RS 

= 

RN 

THEN U 

= 

4 : HC = 

0 

5010 

IF RS < 

) 

RN AND 

RS 

r 

T THEN 

u 

= 4:HC 

= 

5020 

RETURN 









5030 

IF QN ) 

QU 

AND RN 

= 

RU 

THEN U 

= 

2:HC = 

0 

5040 

IF RN < 

> 

RU AND 

RN 

= 

T THEN 

u 

= 2:HC 

= 

5050 

RETURN 









5060 

IF QN ) 

QS 

AND RN 

= 

RS 

THEN U 

= 

2:HC = 

0 

5070 

IF RN < 

> 

RS AND 

RN 

= 

T THEN 

u 

= 2:HC 

= 

5080 

RETURN 









5090 

IF QN > 

QE 

AND RN 

= 

RE 

THEN U 

= 

2:HC = 

0 

5100 

IF RN < 

) 

RE AND 

RN 

= 

T THEN 

u 

= 2:HC 

= 

5110 

RETURN 









5120 

X = 130:1 

( = 

59: GOSUB 

1110; REM APRE NORD 


- 1:U(QU,RU) 


5130 IF AX$ = "A* THEN GOSUB 7040: RETURN 
5140 U = 2:TP = 0:X7 = 0: GOSUB 4870: GOSUB 1830: GOSUB 360:P 
T = RN 

5150 RE = RN: GOSUB 1320 

5160 IF RE = RN AND QE = 12 AND S<13,RN) > 0 AND RND (1) < 

.5 THEN GOSUB 140 
5170 GOSUB 350 

5180 TP = 1: GOSUB 4900: GOSUB 1830; GOSUB 460 
5190 IF W = 2 THEN GOSUB 5000: GOTO 5210 
5200 GOSUB 4970 

5210 IF U = 2 THEN GOSUB 5270: GOSUB 340: RETURN 

5220 IF U = 4 AND RS < > T THEN GOSUB 5330: GOSUB 340: RETURN 

5230 IF U = 4 AND RS = RN AND RS = T THEN GOSUB 5330: GOSUB 

340: RETURN 

5240 IF U = 4 THEN GOSUB 6570: GOSUB 340: RETURN 

5250 IF RE = RN THEN GOSUB 6040: GOSUB 340: RETURN 

5260 GOSUB 6640: GOSUB 340: RETURN 

5270 RU = RN: GOSUB 5290 

5280 GOSUB 5390: RETURN 

5290 FOR QUI = 1 TO 13 

5300 IF UKQW,RW) > N<QN,RN) THEN CU = 1: RETURN 
5310 NEXT 
5320 RETURN 

53.30 RU = RS: GOSUB 5350 
5340 GOSUB 5390: RETURN 
5350 FOR QUI = 1 TO 13 

5360 IF U(QU'RU) > S(QS,RS) THEN CU = 1 : RETURN 
5370 NEXT 
5380 RETURN 

5390 IF CU = 1 THEN U = 1: RETURN 

5400 GOSUB 4190: GOSUB 5410: RETURN 

5410 IF CU = 1 THEN RETURN 

5420 RU = T: GOSUB 4190 

5430 IF CU = 1 THEN U = 1 : RETURN 

5440 GOSUB 4130: RETURN 

5450 RU = RE: GOSUB 4]90 

5460 IF CU = 1 AND QU < QE THEN RETURN 

5470 IF CU = 1 THEN U = 1: RETURN 

5480 GOSUB 4130 

5490 IF CU = 1 THEN RETURN 

5500 RU = T:U = 1: GOSUB 4190: RETURN 

5510 LET RE = T: GOSUB 4830 

5520 IF CE = 1 THEN U = 3: RETURN 

5530 GOSUB 4420 

5540 IF CE = 1 THEN RETURN 

5550 GOSUB 4460 : RETURN 


5560 FL = 0: REM ESCE EST 

5570 U = 3: GOSUB 5770 

5580 IF CE = 1 THEN GOSUB 350: GOTO 5660 

5590 GOSUB 4020 

5600 IF CU = 1 THEN CU = Q:HC = 0:RE = RU: GOSUB 4420 

5610 IF CE = 1 THEN GOSUB 350: GOTO 5ó60 

5620 IF FL = 0 THEN FL = 1 : GOSUB 5960: GOTO 5600 

5630 GOSUB 4460 

5640 IF CE = 1 THEN GOSUB 350: GOTO 5660 

5650 RE = T: GOSUB 4420: GOSUB 350 

5660 PT = RE:TP = 1 : GOSUB 4900: GOSUB 1830: GOSUB 460 

5670 GOSUB 4970 

5680 IF HC = 1 AND U = 3 THEN GOSUB 6040: GOSUB 340: GOTO 5 
720 

5690 IF U = 3 THEN GOSUB 6100: GOSUB 340: GOTO 5720 

5700 IF RS = RE THEN RU = RS : RN = RU; GOSUB 1210 : GOSUB 340: 

GOTO 5720 

5710 GOSUB 6210: GOSUB 340 

5720 TP = 0: GOSUB 4870: GOSUB 1830: GOSUB 360 

5730 IF HC = 1 AND RN < > T THEN RETURN 

5740 IF W = 1 THEN GOSUB 5030; RETURN 

5750 IF U = 3 THEN GOSUB 5090: RETURN 

5760 GOSUB 5060: RETURN 

5770 FOR QE = 13 TO 1 STEP - 1 

5780 FOR RE = 4 TO 1 STEP - 1 

5790 IF E(QEjRE) > 0 THEN GOSUB 5840 

5800 IF CE = 1 THEN RETURN 

5810 NEXT 

5820 NEXT 

5830 RETURN 

5840 FOR QN = QE TO 13 

5850 IF N(QN,RE) > 0 OR S<QN,RE) > 0 THEN RETURN 
5860 NEXT 

5870 CE = 1:HC = 1: RETURN 
5880 FOR RE = 1 TO 4 

5890 FOR QE = 1 TO 13 

5900 CE = CE + E<OE,RE) 

5910 NEXT 

5920 IF CE = 0 AND RE < > T THEN CE = 1:HC = 1 : RETURN 

5930 CE = 0 

5940 NEXT 

5950 RETURN 

5960 FOR RU = 1 TO 4 

5970 FOR QW = ! TO 13 

5980 CU = CU ♦ U(QU,RU) 

5990 NEXT 

6000 IF CU = 0 AND RU < > T THEN CU = 1:HC = 1 : RETURN 
6010 CU = 0 
6020 NEXT 
6030 RETURN 

6040 RU = RE: GOSUB 4190 

6050 IF CU = 1 AND QU > QE THEN U = 1 : RETURN 

6060 IF CU = 1 THEN RETURN 

6070 GOSUB 4130 

6080 IF CU = 1 THEN RETURN 

6090 U = 1:RU = T: GOSUB 4190: RETURN 

6100 RU = RE: GOSUB 6130 

6110 IF CU = 1 AND QU ) QE THEN U = 1 

6120 GOSUB 5410: RETURN 

6130 FOR QU = 13 TO 1 STEP - 1 

6140 IP W(QU,RU) > 0 THEN CU = 1 : RETURN 

6150 NEXT 

6160 RETURN 

6170 FOR QW = 13 TO 1 STEP - 1 

6180 IF U(QU,RU) > S(QS,RS) THEN CU = 1 : RETURN 

6190 NEXT 

6200 RETURN 

6210 RU = RE: GOSUB 4190 
6220 IF CU = 1 THEN RETURN 
6230 RU = T: GOSUB 5350 
6240 IF CU = 1 THEN U = 1: RETURN 
6250 GOSUB 4130 
6260 IF CU = 1 THEN RETURN 
6270 RU = T: GOSUB 4190: RETURN 
6280 X = 130:Y = 105: GOSUB 1110: REM ESCE SUD 
6290 IF m = “A" THEN GOSUB 7040: RETURN 
6300 U = 4:TP = 1 :X7 = 0: GOSUB 4900: GOSUB 1830: GOSUB 460:P 
T = RS 

6310 RU = RS: GOSUB 1210 

6320 IF RU’ = RS AND QU = 12 AND N(13,RS) ) 0 AND RND (1) < 

1 .5 THEN GOSUB 170 

6330 GOSUB 340 

6340 TP = 0: GOSUB 4870: GOSUB 1830: GOSUB 360 

6350 IF U = 4 THEN GOSUB 5060: GOTO 6370 

6360 GOSUB 5030 ^ . 

Continua 
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ha successo e non trova una carta di 
uscita la subroutine (GOSUB 4130) 
trova la più bassa carta non atout che 
può essere giocata (linea 3880). Se 
questa prova non riesce Ovest gioca 
l’atout più basso a linea 3900. 

Il gioco di Nord 

Secondo, Nord gioca una carta a li¬ 
nea 3910 eseguendo le subroutine a 
4870, 4230, 4290, 4350, 300, 1830, 
1920 e 360 in quest’ordine. GOSUB 
4870 chiama il modulo a 4230 che sce¬ 
glie una carta, e poi abilita la carta 
giocata (verificando che la carta scelta 
esista nella mano). GOSUB 4230 chie¬ 
de inoltre al giocatore di introdurre un 
numero o lettera di carta (Q$) e la 
prima lettera del colore da giocare 
(R$) ; GOSUB 4290 converte la lettera 
della carta in numero (Q) e GOSUB 
4230 cambia la lettera del colore nel¬ 
l’appropriato numero di matrice (R). 

Se il giocatore non segue il colore 
(linea 4400) GOSUB 3300 determina 
se Nord sia effettivamente privo di 
carte nel colore d’uscita e imposta l’in¬ 
terruttore Y7 uguale a uno se il gioca¬ 
tore ha fatto una giocata illegale. Di 
conseguenza la linea 4270 respinge la 
carta giocata se Y7 è uguale a 1, e 
rimanda il programma a linea 4230 per 
una nuova immissione. Quando è sta¬ 
ta scelta una carta legittima GOSUB 
1830 disegna il numero o la lettera del¬ 
la carta mediante la linea 1860 e la 
figura del colore mediante la linea 
1880. GOSUB 1420 disegna il colore 
di sfondo della carta e attiva l’altopar¬ 
lante a linea 1940 (per creare il rumore 
di una carta che viene giocata). La 
linea 3920 esegue la subroutine a 5030, 
che imposta l’interruttore per il vin¬ 
cente (W) della presa su due se Nord 
ha giocato una carta più alta di Ovest. 

Il gioco di Est 

Terzo, Est gioca la sua carta più bas¬ 
sa tramite le subroutine alle linee 4520 
e 4420 se Ovest ha giocato la carta 
vincente (W = 1 e HC = 1 a linea 
3930) e poi visualizza la sua carta tra¬ 
mite GOSUB 350. Se Ovest ha sul 
tavolo la carta più alta ma non neces¬ 
sariamente la vincente il programma 
esegue GOSUB 45680 a linea 3940 alla 
ricerca di una giocata vincente. GO¬ 
SUB 4580 chiama la subroutine a linea 
4610 per trovare la carta più alta nel 
colore d’uscita. Se questo non ha esito 
positivo (CE = 0) Est individua l’atout 
più basso (GOSUB 4420) o la carta più 


bassa (GOSUB 4460) mediante GO¬ 
SUB 4720. 

Se invece Nord ha giocato una carta 
più alta di Ovest (QN>QW) nello 
stesso colore (RN = RW) Est ripete 
un’analoga procedura per battere il 
gioco di Nord a linea 3950. La subrou¬ 
tine a linea 1320 determina se Est ab¬ 
bia una carta più alta di quella giocata 
da Nord; ciò si traduce nella condizio¬ 
ne E(QE,RE) > N(QN,RN). 

L’alternativa finale viene eseguita 
dalla linea 3960 (GOSUB 4760) dove 
Nord ha battuto con l’atout il gioco di 
Ovest. Est cerca la carta più bassa del 
colore d’uscita (RE = RW) eseguendo 


GOSUB 4420, o cerca un atout più 
alto (RE = T) tramite GOSUB 4830 
se vuoto nel colore d’uscita. Se Est 
può giocare d’atout ma non ha un 
atout vincente viene determinata da 
GOSUB 4460 la carta più bassa che 
non sia un atout. Se a Est rimangono 
soltanto atout nella mano viene gioca¬ 
to l’atout più basso tramite GOSUB 
4420. 

Il gioco di Sud 

Infine Sud comincia il gioco a linea 
3970, e ripete la logica del gioco di 
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6370 IF U = 4 THEN RE = RS: GOSUB 6710: 60SUB 350: RETURN 
6380 IF U = 2 ANO RN < ) T THET^ RE = RN: GOSUB 4690: GOSUB 
350: RETURN 

6390 IF U = 2 AND RS = RN AND RS = T THEN GOSUB 5510: GOSUB 
350: RETURN 

6400 IF U = 2 THEN GOSUB 6430: GOSUB 350: RETURN 

6410 IF RU = RS THEN GOSUB 4520: GOSUB 350: RETURN 

6420 GOSUB 6500: GOSUB 350: RETURN 

6430 RE = RS: GOSUB 4420 

6440 IF CE = 1 THEN RETURN 

6450 RE = T: GOSUB 4830 

6460 IF CE = ! THEN U = 3: RETURN 

6470 GOSUB 4460 

6480 IF CE = 1 THEN RETURN 

6490 RE = T: GOSUB 4420: RETURN 

6500 RE = RS: GOSUB 4420 

6510 IF CE = 1 THEN RETURN 

6520 GOSUB 4460 

6530 IF CE = 1 THEN RETURN 

6540 RE = T: GOSUB 4420 

6550 IF QE ) QW THEN U = 3 

6560 RETURN 

6570 RU = RN: GOSUB 4190 

6580 IF CU = 1 THEN RETURN 

6590 RU = T: GOSUB 5350 

6600 IF CU = 1 THEN U = 1 : RETURN 

6610 GOSUB 4130 

6620 IF CU = 1 THEN RETURN 

6630 RU = T: GOSUB 4190: RETURN 

6640 RU = RN 

6650 IF CU = 1 THEN RETURN 

6660 GOSUB 4130 

ó67Q IF CU = 1 THEN RETURN 

6680 RU = T: GOSUB 4190 

6690 IF QU > QE THEN U = 1 

6700 RETURN 

6710 FOR QE = 1 TO 13 

6720 IF E(QE,RE) > S(QS,RS) THEN CE = 1:U = 3: RETURN 

6730 NEH 

6740 GOSUB 4420 

6750 IF CE = 1 THEN RETURN 

6760 RE = T: GOSUB 4420 

6770 IF CE = 1 THEN U = 3: RETURN 

6780 GOSUB 4460: RETURN 

6790 Q = INT (SB ♦ NB) - 1 

6800 IF Q = 0 THEN Q = 14 

6810 R = T:X = 12:Y = 81: GOSUB 1830 

6820 HCOLOR= 0:0 = 1: GOSUB 1920: GOSUB 3490: RETURN 

6830 XX = 0:2 = 0 

6840 FOR X = 1 TO 13 

6850 IF N(X,Y) > 0 THEN XX = XX ♦ 1 

6860 2 = 2 + S(X,Y) 

6870 NEXT 
6880 2 = 2 4 TN 
6890 RETURN 
6900 R = 0 

6910 IF T = 0 THEN 6950 * 

6920 FOR Q = 1 TO 13 
6930 R = R ♦ N(Q,T) ♦ S(G,T) 

6940 NEXT 

6950 IF (R < T8 OR R < 2) AND INT (SB) ) = 22 THEN 22 = INT 
(SB) ♦ 1: IF NP < 6 THEN NP = 6 
6960 IF R > T8 AND R > 2 THEN R5 = 1 :TP = T 
6970 RETURN 
6980 25 = 0 

6990 FOR D8 = 1 TO 13 

7000 IF N(D8,R) ) 0 THEN 25 = 25 ♦ 1 

7010 NEXT 

7020 IF 25 < 4 THEN D8 = 0: RETURN 
7030 D6 = 1 :TP = R: RETURN 
7040 FOR R = 1 TO 4 
7050 FOR Q = 1 TO 13 

7060 IF S(Q,R) > 0 THEN S<Q,R> = 0:T2 = T2 +1 : GOSUB 1150 

7070 NEXT 

7080 NEH 

7090 HCOLOR= 1 

7100 FOR DE = 12 TO 50 

7110 HPLOT G,DE TO 279.DE 

7120 HPLOT 0,DE ♦ 127 TO 279,DE ♦ 127 

7130 NEXT 

7140 HCQLOR= 3: RETURN 

7150 GET AX*: TEH : HOME : REM PUNTEGGIO 

7160 GOSUB 7670 

7170 QS = 30:QE = 0:QU = 0:QN = INT (SB ♦ NB) 

7180 IF T = 1 OR T = 2 THEN QS = 20 
7190 FLASH 


7200 IF (P* = "p" OR QN < 1) AND RS < 1 THEN R = Q:Q = Q:RE = 
0: PR1NT "NESSUN D1CHIARA21ONE * PREMI UN TASTO 1 : PRINT 
1 QUALUNQUE PER UNA NUOVA SOZZATA" : GOTO 7250 
7210 IF RS > = (QN ♦ T / 10) THEN RS = INT (RS): PRINT "ES 
T/OVEST VINCE LA mO CON “ ; RS ; • ";EU*:Q = 0:R = 1 :RE = 

0: GOTO 7250 

7220 IF QN < = (T2 - 6) THEN Q = !:R = 0:RE = 0: PRINT "MI 
REALI22AT0 IL CONTRATTO GOTO 7250 
7230 Q = 0:R = 0:RE = 1: PRINT "LA TUA DICHIARAZIONE NON E' R 
IUSCITA 0 

7240 IF QN > 22 THEN RE = 2: PRINT "EST/QVEST HA DOPPIATO LA 
DICHIARAZIONE" 

7250 NORMAL : PRINT 
7260 FOR Y = 0 TO 2 

7270 IF 6(0,Y) < 100 AND G(1,Y) < 100 THEN 7290 
7280 NEH 

7290 G(0,Y) = G(O.Y) 4 QN * QS * Q 

7300 IF T = Q AND QN > RS AND QN < = (T2 - 6) THEN G(0,Y) = 
6(0,Y) 4 10 

7310 6(1,Y) = 6(1,Y) 4 RS « 30 * R » (EU > 2) 4 RS * 20 « R « 
(EU < 3) 

7320 UB = UB 4 Q « (T2 - 6 - QN) * QS 
7330 IF 6(0,0) > = 100 OR 6(0,1) > = 100 THEN OB = OB 4 10 
0 * RE « (QN 4 6 - T2) 

7340 IF 6(0,0) < 100 AND 6(0,1) < 100 THEN OB = 08 4 50 * RE 
* (QN 4 é - T2) 

7350 FOR Y = 0 TO 2 
7360 QE = QE 4 6(0,Y) 

7370 QU = QU 4 6(1,Y) 

7380 NEXT 

7390 IF Q = 1 AND QN > 5 THEN UB = UB 4 500 

7400 IF R = 1 AND RS ) 5 THEN OB = OB 4 500 

7410 IF G(0,0) ) = 100 AND 6(0,1) > = 100 THEN UB = UB 4 7 

50:22 = - 1: GOTO 7450 

7420 IF 6(1,0) > = 100 AND 6(1,1) > = 100 THEN OB = OB 4 7 

50:22 = - 1: GOTO 7450 

7430 IF G(0,2) > = 100 THEN UB = UB 4 500:22 = - 1: GOTO 7 
450 

7440 IF 6(1,2) ) = 100 THEN OB = OB 4 500:22 = - 1 

7450 QE = QE 4 UB 

7460 QU = QU 4 OB 

7470 GOSUB 7480: GOTO 7590 

7480 INVERSE 

7490 PRINT " NORD/SUD- ; TAB< 20):"EST/OVEST ": NORML 
7500 PRINT : PRINT TAB( 6);UB; TAB( 23);OB 

7510 PRINT ".-." 

7520 FOR Y = 0 TO 2 

7530 PRINT TA8( 6);6(0,Y); TAB< 12):"<GAME":<Y 4 !);->■; TAB( 
23):G<1,Y> 

7540 PRINT : IWERSE 

7550 PRINT" ': REM 30 SPAZI 

7560 NORMAL : PRINT 
7570 NEH 
7580 RETURN 

7590 PRINT TAB( 6);QE; TAB( 12): 

7600 PRINT "(TOTALE>".: TAB( 23):QU: PRINT 
7610 IWERSE : PRINT 1 1 :' NORMAL 

: REM 30 SPAZI 
7620 PRINT 

7630 IF 22 = - 1 THET4 CALL - 198: FLASH : PRINT "GIOCO FI 
NITO"; : NORMAL : GOSUB 620:UB = 0:0B = 0 
7640 PRINT B GIOCHI ^CORA 0 (S,^) 

7650 GET A;X$: IF = "N" THEN END 

7660 RETURN 

7670 RS = 0 

7680 FOR XZ = 1 TO 7 

7690 IF (43 - NP * SP) > (16 4 3 « XZ) THEN RS = XZ 

7700 NEXT 

7710 ET = 0:UT = 0 

7720 FOR J8 = 1 TO 4 

7730 TE = 0:TU = 0 

7740 FOR K8 = 1 TO 13 

7750 TE = TE 4 E(K8,J8):TU = TU 4 U(K8,J8) 

7760 NEXT 

7770 IF TE ) = ET THEN ES = J8:ET = TE 

7780 IF TU > = UT THEN US = J8:UT = TU 

7790 NEXT 

7800 IF UT > ET THEN EU = US 

7810 IF ET > = UT THEN EU = ES 

7820 RS = RS 4 EU / 10 
7830 IF EU = 1 THEN EU* = "FIORI* 

7840 IF EU = 2 THEN EU* = "QUADRI" 

7850 IF EU = 3 THEN EU* = "CUORI* 

7860 IF EU = 4 THEN EU* = "PICCHE" 

7870 IF RS < ! THEN EU* = " " 

7880 RETURN 
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Gruppo uMipUllìOfl: il primo servizio integrato per la consulenza, la vendita e l’assistensa 
hardware e software. Per vivere meglio con il computer a Roma. 


tMfUShtf : per essere sicuri di trovare, provare, ac¬ 
quistare i personal più nuovi, i programmi più versatili, 
gli accessori più utili. In un ambiente confortevole e tran¬ 
quillo, nel centro di Roma, Compushop offre la consu¬ 
lenza personalizzata e l’assistenza informativa, anche per 
chi di computer non sa niente. Compushop: per vede¬ 
re, provare, scegliere 
Apple HE, Apple IIC, 

Apple III, Macintosh, 

Lisa, Disk drives 5”, 

8”, ’3 Hard disks, Mo- 
nitors a colori, Stam¬ 
panti ad aghi e a 
margherita, Tavolette 
grafiche, Coprocesso- 
ri, Interfacce seriali e 
parallele, Modems e 
accoppiatori acustici, 

Interfacce per macchi¬ 
ne da scrivere, Carta 
su modulo continuo, 

Nastri inchiostrati, 

Floppy disks, Kits puli- 
scitestina, Mobili porta 


computers, Cassette magnetiche, Programmi per ela¬ 
borare testi, archivi, calcoli finanziari, grafici, statisti¬ 
ca, contabilità fiscale, musica, giochi, Linguaggi. 
Compushop per poter domandare tutto su tutto, 
per poter confrontare tutto con tutto, per imparare 
tutto, per sapere finalmente tutto. Al punto 

tmpNVf : il nuovo 
centro del gruppo 
Compushop dove tro¬ 
vare la stessa profes¬ 
sionalità nell’assistenza 
informativa, la stessa 
disponibilità per chi di 
computer non sa nien¬ 
te e per chi già sa tut¬ 
to, ma vuole essere 
aggiornato su tutte le 
novità. 

Compushop, al Punto 
Compushop: i due pun¬ 
ti vendita hardware e 
software a Roma, per 
chi vuole vivere meglio 
con il computer. 




Il primo vero Cash & Carry del personal 
computer. Ideale per chi di computer sa 
tutto e non ha bisogno di chiedere nulla. 


Per chi vuole comprare ed andar via, per¬ 
chè il suo tempo è denaro. E perchè con 
il Cash & Carry si risparmia. 


il Personal a servizio completo 


telefono: (06) 857124 


• Via Nomentana 265/273 • Via Famagosta 33 

Tel. 8450078 Tel. 385408 

• Via L. Bonincontri 105/107 

Tel. 5140792 

• Via Picco dei Tre Signori 45 

Tel. 898238 


Vivere meglio col computer a Roma 











Nord. Dopo che Sud ha scelto una 
carta può esistere a questo punto del 
gioco una di queste tre possibilità: il 
vincente della presa è Ovest (W = 1 a 
linea 3990), il vincente è Est (W = 3 a 
linea 4000) o il vincente è Nord (W = 2 
a linea 4010). Il programma eseguirà 
le subroutine a linea 4940, 4970 o 5000 
rispettivamente per determinare se il 
gioco di Sud sia più alto di quello del¬ 
l’attuale vincente. Se è Sud a vincere la 
presa la variabile W viene impostata 
uguale a quattro. 

Le subroutine che cominciano alle 
linee 5120, 5560 e 6280 contengono la 
logica per le uscite rispettivamente di 
Nord, Est e Sud. Questi moduli sono 
del tutto simili nel comportamento al¬ 
la subroutine di linea 3810 e non han¬ 
no bisogno di ulteriori spiegazioni. 

Le linee 7150-7660 contengono la 
logica per lo score. L’espressione 
INT(RR) rappresenta la dichiarazio¬ 
ne massima di Est/Ovest. (La subrou¬ 
tine a linea 7670 calcola la dichiarazio¬ 
ne valutando i punti combinati di 
Est/Ovest sulla base della formula di 
43 meno i punti totali di Nord e Sud, 
poi il risultato viene confrontato con la 
dichiarazione massima di Nord usan¬ 
do lo stesso algoritmo). 

Le linee 7170 e 7180 impostano la 
variabile QS uguale a 30 o a 20 a secon¬ 
da del valore di T (numero di colore 
dell’atout). Se la dichiarazione di 
Est/Ovest è superiore o uguale alla di¬ 
chiarazione di Nord/Sud (QN) a linea 
7210 Est/Ovest vincono il contratto e 
ricevono i punti di manche. La stessa 
variabile QN può essere confrontata 
con la differenza fra le prese totali e sei 
(T2 - 6) per determinare se Nord/Sud 
abbiano realizzato la dichiarazione (li¬ 
nea 7220); altrimenti viene eseguita la 
linea 7230 quando il contratto non è 
riuscito. 

La matrice G contiene i totali di 
manche. Il primo indice identifica la 
coppia (Nord/Sud = 0 e Est-Ovest = 
1) e il secondo rappresenta il numero 
di manche meno uno (o 0, o 1 o 2). I 
punti supplementari per la vittoria di 
partita sono assegnati nelle linee 7410, 
7420,7430 o 7440, a seconda della cop¬ 
pia che ha vinto e del numero delle 
manche giocate. La variabile ZZ viene 
nuovamente utilizzata in questa sezio¬ 
ne per indicare la situazione di "fine 
partita" (ZZ = -1). 

Modifiche al programma 

Un’interessante modifica di questo 
programma potrebbe consistere nel¬ 
l’impiego della funzione PDL (in luo¬ 
go della tastiera) per la scelta della 


carta da giocare. Si comincerebbe con 
la subroutine a linea 4230, usando la 
paddle per spostare una figura di cur¬ 
sore sopra la carta da giocare. Poi si 
premerebbe il pulsante per giocare ef¬ 
fettivamente la carta e pulire lo scher¬ 
mo. La dichiarazione avrebbe ancora 
origine sulla tastiera. Si potrebbe an¬ 
che prendere in considerazione la tra¬ 
sformazione del programma in gioco a 
due, in cui il giocatore farebbe la licita¬ 
zione con un altro giocatore anziché 
con il computer. Lo si potrebbe realiz¬ 
zare modificando la sezione compresa 
fra le linee 2670 e 3180 (dichiarazione 
di Nord), e ne sarebbe sicuramente 
accresciuta la quantità di memoria di¬ 
sponibile per il programma. 

Si prega di osservare che il program¬ 
ma è stato scritto per un monitor a 
colori. Si può ottenere una miglior ri¬ 
soluzione dei cuori e dei quadri cam¬ 
biando le linee 2260 e 2290 in HCO- 
LOR uguale a zero (nero). Altrimenti 
i cuori e i quadri sono arancione, i 
fiori, le picche, i numeri e le lettere 
sono neri e il colore di fondo delle 
carte è bianco. L’area di gioco è di 
color verde (in Hi-Res sono disponibi¬ 
li solo sei colori). 

Se si vuole un compagno più aggres¬ 
sivo durante la licitazione la costante 
16 a linea 2640 può essere decrementa- 
ta di uno alla volta fino a raggiungere il 
livello di gioco desiderato. Un’analo¬ 
ga modifica si può fare con la costante 
16 a linea 7690 per aumentare la forza 
di dichiarazione della coppia avversa¬ 
ria (Est/Ovest). Al presente livello di 
gioco il compagno costituito dal com¬ 
puter (Nord) tende a essere prudente, 
ma la coppia Nord/Sud vince con tutto 
ciò la maggior parte delle partite. 

Per ultima cosa, se si intende modi¬ 
ficare il programma si devono togliere 
le istruzioni REM per aumentare la 
memoria: altrimenti basterà raggiun¬ 
ta di qualche istruzione o variabile 
supplementare per far sì che si verifi¬ 
chi l’errore OUT OF MEMORY. 

Buon divertimento 

Il computer gioca un bridge "mali¬ 
gno", tale da mettere alla prova il gio¬ 
catore di livello da medio a buono. 
Dato che ogni mano è diversa dalle 
altre ci si può trovare a giocare per ore 
e ore alla volta. Buona fortuna e buon 
divertimento. 


Questo programma è disponibile su di¬ 
schetto, insieme con altri programmi. 
L’elenco, i prezzi e le modalità d’ordine 
sono riportati nell’ultima pagina di Ap¬ 
plicando, nella rubrica Disk Service 

- ¥ 
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^ Lo spreadsheet, il foglio elettronico di calcolo, è uno strumento 
adattabile alle esigenze personali di ognuno. Questo 
programma permette di capire come funziona VisiCalc e i 
pacchetti simili, e mette a disposizione 20 righe per 20 colonne, 
per un totale di 400 caselle, tutte da riempire come serve a voi. 



I calcoli? 
li fa tutti lui 


DOS 3.3 H E 1111 
ProDOS 

APPLE //e -filili 
APPLE 1 /c -«IlII 


I l concetto di foglio elettronico (Vi¬ 
siCalc) è ben noto: una serie di ca¬ 
selle che possono essere messe in rela¬ 
zione matematica fra loro. Ma il Visi¬ 
Calc, visto anche l’alto costo, non è 
ancora molto diffuso in Italia. Per dare 
a tutti la possibilità di sperimentarne 
l’efficacia, proponiamo questo pro¬ 
gramma, che ha una stretta parentela 
col VisiCalc, ma che ha il pregio di non 
costare nulla per chi ha la pazienza di 
digitarselo, oppure poche lire per chi 
acquista il dischetto, peraltro disponi¬ 
bile anche insieme con altri program¬ 
mi pubblicati su questo numero di Ap¬ 
plicando. 

La prima cosa da fare, una volta 
copiato il programma e salvato su di¬ 
sco (le istruzioni le troverete in questo 
stesso articolo), è di fare uno schema 


su come volete impostare il foglio elet¬ 
tronico di calcolo per risolvere un pro¬ 
blema specifico. Poniamo l’ipotesi di 
fare un budget famigliare. E’ bene 
prendere carta e penna per visualizza¬ 
re la situazione che si vuole calcolare. 
Tenete conto che Microcalc permette 
di utilizzare fino a venti righe per venti 
colonne di informazioni. Le informa¬ 
zioni sono formate da Dati (D), che 
sono le cifre, e dalle Formule (F), che 
sono le relazioni matematiche in cui 
vengono posti i vari dati. Esiste inoltre 
una terza possibilità, che è il Commen¬ 
to (C), e che serve a ricordare qualche 
voce particolare. Per esempio, nel ca¬ 
so di calcoli percentuali, può essere 
scelto come "commento" il segno di % 
con la relativa cifra (10%, 12%, e così 
via). L’ esempio che realizzeremo, 


cioè il budget famigliare, è limitato 
solo per ragioni di fornire un esempio 
facile e immediatamene comprensibi¬ 
le, e il commento individua solo mesi 
critici (!), mesi normali (*), il simbolo 
di lire (L.) e una serie di uguali (=) che 
servono per rimpaginazione dei totali 
(figura 1). 


Impostazione del foglio 

Una volta passati al computer, per 
prima cosa bisogna decidere la lar¬ 
ghezza delle colonne, che è in funzio¬ 
ne delle scritte e delle cifre che dobbia¬ 
mo inserirvi. La prima colonna a sini¬ 
stra, che ha una misura massima già 
predeterminata di dieci battute, è 
esclusa da questo calcolo e deve conte¬ 
nere, per stare al nostro esempio, il 
nome del mese. La seconda, che per il 
nostro programma è la prima, contie¬ 
ne il Commento, che visualizziamo 
con C e che conterrà o un ! o un * o il 
segno di = o l’abbreviazione di lire L., 
quindi è sufficiente che sia larga tre 
lettere. Le colonne relative alle voci 
"Stipendio", "Affitto", "Vestiario", 
"Vitto", "Auto", "Varie", "Saldo", le 
definiamo tutte di nove lettere, che è il 
massimo consentito. In ogni caso, 
quando sappiamo di dover inserire in 
una colonna dei dati, la colonna in 
questione non può essere larga meno 
di 4 lettere. Stabilire le varie larghezze 
è semplicissimo, in quanto è il pro¬ 
gramma stesso che, un volta dato il 
RUN, richiede questi dati. Basta scri¬ 
vere di seguito i numeri corrispondenti 
alla larghezza di ogni colonna. Nel no¬ 
stro caso scriveremo: 39999999. Al 
termine battete Q per finire. 

A questo punto il programma chie¬ 
de i nomi delle varie colonne, che ab¬ 
biamo già stabilito nel nostro prospet¬ 


ti! questa colonna possiamo Inserire fino a 20 uocl 
descrittole. La larghezza della colonna è fissa (10 lettere) 

Questa è la prima colonna 
effettiva dello spreadsheet. 

E‘ possibile avere fino a 20 colonne, 
di grandezza variabile da 1 a 9 
lettere. Questa colonna la stabiliamo 
di 3 lettere perché contiene 
solo I Commenti. 


▼ A" * * 1 ^ 

C STIPENDIO DEFITTO UESTIfiRIO DITTO AUTO URRIE SALDI 


gsnnaio 









febbraio 









marzo 









aprile 









moggio 









giugno 


















TOTHLI 










Figura 1. In questa prima fase dobbiamo “abbozzare” il nostro modello su un 
foglio di carta, per chiarire bene tutte le nostre esigenze di calcolo. 


Queste sono le altre colonne che Ipotizziamo 
per la costruzione del nostro esemplo di 
budget famigliare. Sono lunghe 9 lettere. 































Formato 



to su carta e che per chiarezza ricordia¬ 
mo ancora :"C", "Stipendio", "Affitto", 
"Vestiario", "Vitto", "Auto", "Varie", 
"Saldo". Poi chiede di quante righe è 
composto il foglio elettronico di calco¬ 
lo. Poiché nel nostro caso abbiamo 
scelto un budget semestrale, le righe 
saranno sei per i sei mesi dell’anno, 
una settima riga vuota, che è possibile 
riempire di segni di uguale per una 
corretta impaginazione e visualizza¬ 
zione, e un’ottava riga per tutti i totali. 

Fornito anche questo dato, dovrete 
riempire la colonna all’estrema sini¬ 
stra, che è quella predeterminata dal 
programma, e quindi al di fuori di ogni 
conteggio, larga, come abbiamo già 
detto, dieci caratteri. Riempirete que¬ 
sta colonna con le seguenti scritte: 
Gennaio, Febbraio, Marzo, Aprile, 
Maggio, Giugno, settima riga senza 
scritte, Totali. 

Le funzioni 

A questo punto dobbiamo decidere 
quale delle tre funzioni possibili si vo¬ 
glia utilizzare a ogni intersezione fra 
riga e colonna (casella), del proprio 
programma. Scegliamo D per l’intro¬ 
duzione dei dati, C per il commento e 
F per la formula o il calcolo. Nell’e¬ 
sempio che stiamo costruendo, questo 


significa che metteremo alla riga in 
corrispondenza di Gennaio la seguen- 
te sequenza di caratteri: 
CDDDDDDF. Fate lo stesso in corri¬ 
spondenza degli altri cinque mesi, 
mentre nella settima riga mettete una 
sequenza di otto C e nell’ottava una 
sequenza formata da una C e sette F. 
Le caselle che vengono contraddistin¬ 
te dalla lettera D si differenziano auto¬ 
maticamente, perché, all’estrema sini¬ 
stra, compare il segno cancellerò (#) 
se usate la tastiera americana o lira 
sterlina (£) se usate la tastiera italiana. 


Dopo aver definito il modello siamo 
pronti per la fase di immissione dei 
dati, casella per casella, relativi ai 
commenti. Inserite un ! nella prima 
casella che vi viene proposta, poi pre¬ 
mete RETURN. E così via con questa 
sequenza: * * ! * ! A questo punto, per 
tutte le caselle, fino alla colonna 1, 
riga 8 (i numeri delle colonne si leggo¬ 
no in alto al centro, mentre i numeri 
delle righe si leggono a sinistra nello 
schermo del computer) riempite tutti 
gli spazi disponibili con il segno di 
uguale (=). Per la casella contraddi¬ 
stinta da colonna 1 e riga 8 inserite 
l’abbreviazione di lire (L.). 

Terminata la fase di introduzione 
dei commenti, Microcalc immagazzi¬ 
nerà in memoria tutte le informazioni 
ricevute. Questo procedimento può ri¬ 
chiedere fino a cinque minuti per un 
programma ampio. Pochi secondi nel 
caso del nostro esempio. Quando le 
informazioni sono state memorizzate, 
il programma viene visualizzato in ma¬ 
niera semidefinitiva (figura 2). 

A video, però, non vedremo l’intera 
tabella, ma solo una sua parte. Per 
visualizzare la parte nascosta possia¬ 
mo ricorrere allo scroll laterale, usan¬ 
do le frecce sinistra e destra per far 
scorrere dieci caratteri a destra o a 
sinistra, e i tasti della virgola e del 
punto per far scorrere un carattere alla 
volta. 

A questo punto è possibile cambiare 
i nomi delle colonne e delle righe o i 
commenti premendo C. Fatelo solo 
quando è strettamente necessario, 
perché il computer ricompilerà tutti i 
dati quando si è finito di fare i cambia¬ 
menti. Se tutto è esatto battete S di 
SAVE, e il programma vi chiederà di 
dare un nome al file. Poi viene chiesto 
di inserire il dischetto sul quale volete 


UESTIRRIO UITTO 


gennaio 

C 

0 

0 

0 

0 

D 

0 

F 

febbraio 

C 

D 

0 

0 

D 

0 

0 

F 

marzo 

c 

0 

0 

0 

0 

0 

0 

F 

aprile 

c 

0 

D 

0 

D 

0 

D 

F 

maggio 

c 

0 

0 

D 

0 

.0 

0 

F 

giugno 

c 

0 

D 

D 

0 

0 

0 

F 


c 

c 

C 

C 

C 

C 

C 

C 

TOTRLI 

c 

F 

F 

F 

F 

F 

F 

F 


Figura 2. La seconda fase consiste nello stabilire la larghezza di ogni colon¬ 
na e il tipo di ogni singola casella: C per Commento, D per Dati e F per 
Formule. 


■ 
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salare il file. Potete salvarlo sullo stes¬ 
so dischetto sul quale avete anche il 
programma, oppure su un altro di¬ 
schetto, già inizializzato, sul quale me¬ 
morizzare tutti i lavori eseguiti con Mi- 
crocalc. Una volta terminato il salva¬ 
taggio dei dati, viene chiesto di reinse¬ 
rire il dischetto che contiene Micro- 
cale. 

Introduzione delle formule 

La fase successiva consiste nell’in¬ 
troduzione delle formule occorrenti 
per i calcoli. In altre parole, le caselle 
che contengono dei dati numerici pos¬ 
sono essere messe in relazione mate¬ 
matica fra di esse. Per esempio, la ca¬ 
sella contraddistinta da riga 1 e colon¬ 
na 5 può essere sommata alla casella 
contraddistinta da riga 1 e colonna 6. 
Visivamente si ha questo risultato: 
[1,5] + [1,6]. E’ importante, quando si 
introducono le formule, ricordare l’or¬ 
dine di calcolo. Tutti i calcoli sono ese¬ 
guiti da sinistra a destra all’interno di 
una riga, e le colonne sono calcolate 
dall’alto in basso. Ciò è particolar¬ 
mente importante se si esegue una di¬ 
visione. Il programma presenterà au¬ 
tomaticamente, come ha fatto nel caso 
dei commenti, tutte le caselle nelle 
quali devono essere inserite le formu¬ 
le. Per introdurre dati in una delle ca¬ 
selle basta premere il tasto ESC e in¬ 
trodurre il numero di riga, poi battete 
RETURN e il numero di colonna della 
casella che volete usare, seguito da 
RETURN. Comparirà sullo schermo 
il simbolo [R,C], in cui R rappresenta 
il numero di riga e C rappresenta il 
numero di colonna che si sono scelti. 
Questa caratteristica permette anche 
di utilizzare un risultato ottenuto in un 
calcolo precedente, sommando, per 
esempio, la casella che contiene una 
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formula alla casella che contiene un 
dato. Nel nostro esempio la formula 
per il calcolo dei saldi di ogni mese 
deve essere inserita innanzitutto a riga 
1 e colonna 8 in questo modo: ESC 1 
RETURN 2 RETURN - ESC 1 RE¬ 
TURN 3 RETURN - ESC 1 RE¬ 
TURN 4 RETURN - ESC 1 RE¬ 
TURN 5 RETURN - ESC 1 RE¬ 
TURN 6 RETURN - ESC 1 RE¬ 
TURN 7 RETURN RETURN. Nella 
casella contraddistinta dalla riga 2 e 
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colonna 8, che il programma presenta 
automaticamente, procedete allo stes¬ 
so modo, con l’avvertenza di cambiare 
il numero di riga: ESC 2 RETURN 2 
RETURN - ESC 2 RETURN 3 RE¬ 
TURN, e così via. 

Dopo aver introdotto tutte le for¬ 
mule, potete rivederle una per una per 
effettuare un controllo ed eventuali 
correzioni. Potete anche rivedere tut¬ 
to il modello servendovi dello scroll. 

Introduzione 
personalizzata di dati 

Una volta terminato il lavoro di in¬ 
troduzione e controllo delle formule, 
il programma vi chiede se volete dare 
un ordine particolare di introduzione 
dei dati. Potete anche non utilizzare 
questa opzione, che tuttavia può di¬ 
mostrarsi molto utile non tanto nell’e¬ 
sempio che abbiamo costruito insie¬ 
me, quanto in altri modelli di calcolo 
più complessi, per i quali la possibilità 
di introdurre i dati in una determinata 
sequenza può essere comodo e può 
magari facilitare il lavoro che state 
eseguendo. 

Premete a questo punto il tasto S e 
salvate il modello costruito fin qui. Mi- 
crocalc crea automaticamente il foglio 
elettronico esattamente come lo ave¬ 
vamo "immaginato" schizzandolo sul 
nostro originale appunto di carta. Ter¬ 
minata la "creazione", il programma 
chiede che reinseriate il dischetto sul 
quale avete salvato inizialmente il pro¬ 
gramma. Eseguite il comando e poi 
premete la barra spaziatrice per conti¬ 
nuare. 

Dati e file di dati 

Per prima cosa il nuovo programma 
chiede di introdurre i dati. Potete pro¬ 
cedere a questa operazione in quattro 
modi diversi: secondo l’ordine che 
avevate stabilito in precedenza 
(UTENTE), per riga, per colonna, in 
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Figure 3. Dopo aver inserito tutti i dati, è il programma che provvede a 
eseguire le formule, sostituendo al posto delle F i relativi risultati. In questo 
modo, quando si aggiornano uno o più dati, automaticamente vengono 
aggiornati anche i risultati. 
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LISTATO M1CROCALC 


<0 REM ************************ 

11 REM * M1CR0CALC * 

12 REM * DI STEOHEN BOW * 

13 REM » COPYRIGTH (0 1985 * 

14 REM * BY APPLICANDO 4 * 

15 REM * MICRO-SPARC INC * 

16 REM ************************* 
20 POKE 4,0: HIMEM: 32510 

25 G$ = ‘ 


24 REM 225 SPA2I FRA VIRGOLETTE A LINEA 25 
30 PRiNT CHR$ (4);*BRUN CLEARER': PR1NT CHR$ (4)j"BL0AD D 
IS'PLAYER' 

40 DIM LC(21).CL$(2!),RM(21).UK(21,21),TS$(21),CTÌ<21,21) 

50 2$= CHR$ (34):Y$ = 2$ + CHR$ <58) :UO$ = 1 * : REM 

10 SPA2I 

40 8$<3) = 1 *:Q$(4) = • ’ i£»<5) = " , :W(4) = " 

■:Q$(7) = " ’:Q»(8) = ’ ‘:Q$<9) = ■ 

70 D$(3) = ' *:0$<4) = •» , :D$(5) = , lt , :D$(4) = ■# 

. ":D$(7> = ■# ’:D$<8> = ■* *:D»<9> = ■» 

75 REM IL NUMERO DEI CARATTERI IN OGNI STRINGA DELLE LINEE 
40-70 E' UGUALE ALL'INDICE DELLA VARIABILE 
80 REM — LARGHE22A COLONNE — 

90 TEXT : HOME : POKE 33,41: POR I = 5 TO 24: VTAB (I): HTAB 

21: PRINT ■.;.* : : NEXT I: POKE 33.40 

100 VTAB 1: HTAB 1: IWERSE : PRINT , ENTER>LARGHE22A COL.’: 

PRINT "LARGHEZZA 1-9 ": PRINT "Q = FINE PRINT 

R R 

110 FOR I = ! TO 20: VTAB (4 ♦ I): HTAB 1: PRINT 1 

H ; : NEXT I : NORMAL : VTAB 4: HTAB 21: FOR I = 1 TO 20 

120 SET Al: IF Al = B 0 B AND 1>1 THEN 210 
130 IF A i = CHRI (8) THEN I = I - 1: PRINT A*;: CALI - 86 
8: IF I < 1 THEN 1 = 1: PRINT 1 ': 

140 IF Al = CHRI (8) AND I < 1 THEN 1 = 1: PRINT B B ; 

150 IF A i = CHR$ (8) THEN 120 

160 A = VAL (Al) : IF A < 1 THEN 120 
170 IF I < ! THEN 1 = 1 
180 LC(I) = A: PRINT Al;: NEXT I 

190 VTAB 4: HTAB 20: GET Ai: IF Ai = CHRI (8) THEN FOR I = 

1 TO 20:LC<I) = 0: GOTO 90 

200 IF A* < > CHRI (81) THEN PRINT CHRI (?):: GOTO 190 
210 NC = I - 1: VTAB 1: HTAB 1: PRINT VOI;VOI: PRINT VOI;VOI 
: PRINT VOI;VOI 

220 REM — NOMI DELLE COLONNE — 

230 'VTAB 3: HTAB 20: CALI - 868: INVERSE : VTAB 1 : HTAB 1: 

PRINT *ENTER) NOME COLONNE": NORMAL : PRINT B 
B : FOR 1 = 1 TO NC:K = 0: VTAB 3: HTAB 1: PRINT VOI; 

240 VTAB 2: HTAB 1: IWERSE : PRINT 'NOME CQLQMa N. n : I : : VTAB 

4: HTAB 1: PRINT 'NOME COL. ';: NORMAL : VTAB 3: HTAB 1 

: PRINT VOI; 

250 LM = LC(I):BI = ia 
260 VTAB 3: HTAB 10: GET A* 

270 IFAI = CHRI (8) THEN IF 8* = ,B THEN 320 

280 IF Ai = CHRI (8) THEN VTAB 3: HTAB 1: PRINT VOI;: INVERSE 

: VTAB 4 4 I: HTAB !: PRINT VOI;: NORMAL :BI = ' ': GOSUB 

380:B$ = BB : GOTO 260 

290 IF LEN (8$) = LM THEN IF Ai < > CHRI (13) THEN PRINT 
CHRI (7):: GOTO 260 
300 IF Ai = CHRI (13) THEN 350 

310 Bl = Bl 4 Al: GOSUB 380: VTAB 3: HTAB 10 - LEN (Bl): INVERSE 
: PRINT 8$;: NORMAL : GOTO 260 
320 Bl = ' B : GOSUB 380: VTAB 3: HTAB 1: PRINT VOI:: VTAB 
4 4 I: HTAB 1: INVERSE : PRINT ' ';: NORMAL :I = 

I - 1: IF I < 1 THEN I = 1 

330 GOSUB 380: VTA8 4 4 I : HTAB 1 : INVERSE : PRINT ' 

B :: NORMAL : VTAB 2: HTAB 18: PRINT ' INVERSE : VTAB 
2: HTAB 18: PRINT I;: NORMAL 
340 Bl = BB : GOTO 250 

350 IF lEN (Bl) = LM THEN CLKI) = B*:BI = ,B : GOTO 370 
360 CLKI) = 8$ 4 LEFTI (VOI,LM - LEN <BD) 

370 VTAB 3: HTAB 1: PRINT WOÌ ; : HTAB 1 : VTAB 4 + I : IWERSE 
: PRINT CLKI): : VTAB 4 4 I* HTAB 10: PRINT B - B ;I:: NORMWL 
: NEXT I : NORMAL : GOTO 420 

380 IF LEN <B*> ) 2 THEN VTAB 3: HTAB 20 4 I; PRINT MID$ 

(81,3,1)! 

390 IF LEN (Bl) > 1 THEN VTAB 2: HTAB 20 4 I; PRINT MIDI 

(Bl.2.1): 

400 VTAB 1: HTAB 20 4 I; PRINT LEFTI (Bl,l);: RETURN 
410 REM ™ NOMI DELLE RIGHE — 


420 VTAB 1: HTAB 1: PRINT VOIjVCH: PRINT VOI;VQI: PRINT VOI 
;WO$ 

430 81 = B ':AI = BB : VTAB 1: HTAB 1: INVERSE : PRIf^T 'QUANTE 
RIGHE ?" ; : NORMAL :N = 0 

440 GET AI:N = N 4 1: IF Ai = CHRI (13) THEN 470 
450 IF Ai = iHRI (8) THEN N = 0: GOTO 420 
460 PRINT AI;:BI = Bl + Al: IF N < 2 THET4 440 
470 A = VAL (31): IF A < 1 OR A > 20 THEN 420 
480 VTAB 1: HTAB 1: PRINT UOKUO*: PRINT VOI;VOI: PRINT VOI 
:AI = BB :8$ = BH 

490 'VTAB 4: HTAB 10: PRINT ' NOME RIGA 9 :: FOR XX = 1 TO 20 
: 'VTAB 4 4 XX: HTAB 9 4 (XX < 10): PRINT XX ; * B ;: NEXT 
XX 

500 VTAB 1: HTAB 1: INVERSE : PRINT 'ENTER) NOME RIGHE B : 

NORMAL :NR = A: FOR I = 1 TO NR 
510 FX = 0 

520 FOR J = 1 TO 10 

530 VTAB 441; HTAB 20: GET Al: IF Al = CHRI (13) THEN RO 
1(1) = B*:B$ = BB : GOTO 600 

540 IF FX = 1 AND Al < > CHRI (13) THEN PRINT CHRI (7); 

: GOTO 530 

550 IF Al = CHRI (8) AND 81 = '* THEN I = I - 1: 1F I < 1 THEN 
I = 1 

560 IF Al = CHRI (8) AND B! = BB THEN ROI(I) = BB : VTAB 4 4 
I: HTAB 11: PRINT VOI;: GOTO 520 
570 IF Al = CHRI (8) THEN Bl = B ':R0I(I) = BB : VTAB 4 4 I; 

HTAB 11: PRINT VOI;: GOTO 520 

580 VTAB 4 4 I; HTAB 20 - LEN (BI):BI = Bl 4 Al: PRINT Bl; 

590 NEXT J:FX = 1: GOTO 530 

600 IF LEN (ROI(D) = 10 THEN NEXT I: GOTO 630 

610 ROI(I) = LEFTI (VOI,(10 - LEN (ROI(I)))) 4 ROI(I): NEXT 

620 REM - CAMBIAMENTI - 

630 VTAB 1: HTAB 1: PRINT VOI;VOI: PRINT VOI;VOI: PRINT VOI 
;UO$ 

640 IWERSE : VTAB 1: HTAB 1: PRINT 'VOLETE CAMBIARE IL ': 
PRINT 'NOME DI UNA RIGA B : PRINT "0 CQLOMA (S/N) 

?';: GET Al: PRINT Al:: IF Al = B N* THEN 710 
650 IF Al < > B S' THEN 640 

660 VTAB 1: HTAB 1: PRINT 'CAMBIARE DNOME RIGA': PRINT ' 

2)N0ME COL.': PRINT ' 3)FINE B : PRINT 

VOI;VOI: VTAB 4: HTAB 1: PRINT 'SCEGLI B ;: GET 

Al: PRINT Al;:A = VAL (Al): IF A < 1 OR A > 3 THEN 660 

670 NORMAL : IF A = 3 THEN 710 
680 Bl = ' 8 : ON A GOSUB 1210.1090 

690 'VTAB 2: HTAB 1: PRINT WÓI;VOI: VTAB 3: HTAB 1: PRINT 'A 
NCORA ?';: PRINT VOI: PRINT B (S/N) B ;V0I;0I(5); : VTAB 4: 

HTAB 11: GET Al: PRINT Al;: IF Al = B S* THEN INVERSE 
: GOTO 660 

700 IF Al < > 'N B THEN 690 
710 VTAB 4: CALL - 868 

720 VTAB 5: HTAB 1: INVERSE : PRINT 'C=COft1ENTO ': PRINT 'F 

^FORMULE ': PRINT '0=DATI B : PRINT '<=BKSPACE B : NORMAL 

730 POKE 33,20: VTAB 1: HTAB 1: PRINT VOI;WOI;VOI;WOI:WOI[W 
OI;VOI:VQI;: POKE 33,40: INVERSE : FOR XX = 9 TO 24: HTAB 
1: VTAB XX: PRINT VOI:: NEXT XX: NORMAL 
740 VTAB 5: HTAB 11: PRINT ' B : FOR I = 1 TO 20: 'VTAB 4 4 I 

: HTAB 9 4 (I < 10): PRINT I : : NEXT I : VTAB 4: HTAB 21: 

PRINT '12345678901234567890 ; : 

750 POKE 33,41: FOR N = 1 TO NR: FOR M = 1 TO NC: GOSUB 760 
: GOSUB 880: GOSUB 930: NEXT M: NEXT N: GOTO 960 
760 INVERSE : GOSUB 880 
770 IF FY = 0 THEN GOSUB 930 
780 NORMAL 

790 VTAB 4 4 N: HTAB 20 4 M: GET Al 
800 IF LC(M) < 4 THEN Al = B C' 

810 IF Al = 'C B THEN PRINT AI;:VK(N,M) = 1: RETURN 

820 IF Al = B F' THEN PRINT AI;:VK(N,M) = 2: RETURN 

830 IF Al = 'D B THEN PRINT Al;:WK<N,M) = 3:ND = ND 4 1 ; RETURN 

840 IF Al = CHRI (8) THEN NORMAL : GOSUB 880: GOSUB 930:M 

= M - 1: IF M = 0 THEN M = NC:N = N - 1: IF N = 0 THEN 
RETURN 

850 REM BKSPACE 
860 GOTO 760 

870 REM — ROUTINE DI STAMPA — 

880 AA = LEN (CLI(M)): IF AA = 0 THEN Cll = CHRI (32>:C2$ = 
C1I:C3$ = Cll: GOTO 920 

890 »IF AA = 1 THEN Cll = CHRI (32):C2I = C1I:C3I = LEFTI 
<CLI(M),1): GOTO 920 

900 IF AA = 2 THEN Cll = CHRI <32):C2I = LEFTI (CLKM) ,1) 

:C3I = RIGHTI (CLI(M),1): GOTO 920 


Continua 








910 Ci$ = LEFT$ <CL$(M) ,1) :C2$ = MID$ <CL$(M) ,2,1) :C3$ = MIW 
(CL$(M> ,3,1) 

920 VTAB 1: HTAB 20 + M: PRINT CU;: VTAB 2: HTAB 20 4 M: PRINT 
C2$; : VTAB 3: HTAB 20 t M: PRINT C3$;: RETURN 
930 VTAB 4 * N: HTAB !1: PRINT RO$(N>; 

940 RETURN 

950 REM ™ E' CORRETTO ? — 

96C B$ = BE : VTAB 1: HTAB 1: PRINT yO$;UO$: PRINT WO$:UO$ 

970 ‘VTAB I: HTAB 1: INVERSE : PRINT ’VA BENE ?" ; : NORMAL : 6ET 
A$; PRINT a$ ;; if a$ = 'S fl THEN GOTO 1340 
980 IF A* < ) "N* THET>‘ 960 
990 VTAB 1: HTAB 1: PRINT MOSsUQ* 

1000 VTAB 1: HTAB 1: INVERSE : PRINT 'ENTER N.C0L0f#4A B ; : NORMAL 
: GE T A$: IF A$ = CHR$ (13) THEN 1000 
1010 PRINT A$;:B$ = A$: GET A$: IF A$ = CHR$ (13) THEN 103 
0 

1020 PRINT A$;:B$ = B$ ♦ Ai 
1030 M = VAL (B$>: IF H < ! OR fi ) NC THET4 990 
1040 VTAB 2: HTAB 1: INVERSE : PRINT “ENTER N.RIGA* ; ; NORML 
: GET A$: IF A$ = CHR$ (13) THEN 1040 
1050 PRINT A$;:B$ = A$: GET A$: IF A$ = CHR$ (13) THEN 107 
0 

1060 PRINT A$;:B$ = 8$ ♦ A* 

1070 N = VAL (B$): IF N < 1 OR N > NR THET4 1040 
1080 GOSUB 760: GOSUB 880: NORMAL : 'VTAB 4 ♦ N: HTAB 11: PRINT 
RO$(N) : : GOTO 960 

1090 VTAB 1: HTAB 1: POKE 33.20: PRINT UO$;WO$:Uto:WO$:WO$; 
UO$;yO$;tdO$: VTAB 1 : HTAB 1 : INVERSE : INPOT "ENTER COL 
ONNA N.->':A$: NORMAL :M = 'VAL <A$>: IF M < 1 OR M > N 
C THEN 1090 

1100 POKE 33,40: VTAB 2: HTAB 1: PRINT 'VECCHIO NOME =': PRINT 
CL$(M) 

1110 VTAB 4: HTAB 1: INVERSE : PRINT 'NUOVO NOME)";: NORMAL 

1129 VTAB 4: HTAB 11: GET A$: IF A$ = CHR$ (13) THEN VTAB 

1: HTAB 1: PRINT UO$:UO$: GOTO 1180 

1130 VTAB 4: HTAB 11: PRINT " * + B$ ♦ A$ 

1140 IF A$ = CHR$ (8) THEN B* = ": VTAB 4: HTAB 11: PRINT 
ù>0$;: GOTO 1120 

1150 B$ = 6* * A$: IF LEN (B$) = LC(M) THEN 1170 
1160 GOTO 1120 

1170 VTAB 4: HTAB 12: GET A*: IF A* < > CHR$ (13) THEN PRINT 
CHR$ (7)s: GOTO 1170 
1180 IF B$ = *' THEN RETURN 

1190 IF LEN <B$) = LC(M) T HEN CL$(M) = B$: GOSUB 880: INVERSE 

: VTAB 4 ♦ M: HTAB 1: PRINT CL$(M);: NORMAL : VTAB 1: HTAB 

1: PRINT UO$;UO$: RETURN 

1200 CL$(M) = B$ + LEFT$ <UO$,LC(M) - LEN (B$)): GOSUB 880 
: INVERSE : VTAB 4 ♦ M: HTAB 1: PRINT CL$(M);: NORMAL : 
RETURN 

1210 VTAB I: HTAB 1: POKE 33,20: PRINT UO$;UO$:WO$jWO$:WO$j 
UO$;U0$:UO$;: 'VTAB 1: HTAB 1: INVERSE : INPUT 'ENTER RI 
GA N.->";A$: NORML :N = VAL (A$): IF N ( 1 OR N ) NR THEN 
1210 

1220 POKE 33,40: 'VTAB 2: HTAB 1: PRINT 'VECCHIO NOME =': PRINT 
R0$(N) 

1230 'VTAB 4: HTAB 1: INVERSE : PRINT 'NUOVO NOME)';: NORMAL 

1240 VTAB 4: HTAB 11: GET A*: IF A$ = CHR$ (13) THEN VTAB 

1: HTAB 1: PRINT WO$:UO$: GOTO 1300 
1250 VTAB 4: HTAB 11: PRINT • ■ ♦ B$ ♦ A$ 

1260 IF A$ = CHR$ (8) THEN B$ = " : VTAB 4: HTAB 11: PRINT 

UO$;: GOTO 1240 

1270 8* = B$ ♦ A$: IF lEN <B$) = 10 THEN 1290 
1280 GOTO 1240 

1290 VTAB 4: HTAB 12: GET A*: IF A* < ) CHR$ (13) THEN PRINT 
CHR$ (7):: GOTO 1290 
1300 IF B$ = *' THEN RETURN 

1310 IF LEN (B$) = 10 THEN RO$(N) = 6$: GOSUB 930: VTAB 1: 

HTAB 1: PRINT WO$:UO$: RETURN 

1320 RO$(N) = LEFT$ (UW,(10 - L0 i <B$))) ♦ B$: GOSUB 930: 
RETURN 

1330 REM — INSERISCI COMMENTI — 

1340 HOME : VTAB 16: PRINT 'ASPETTA':.X = ERE (0): HOME 
1350 VTAB 4: HTAB 12: IWERSE : PRINT "ENTER CRUENTI': NORMAL 

1360 FOR N = 1 TO NR: FOR M = 1 TO NC: IF WK(N,M) = 1 THEN 
1380 

1370 NEXT M: NEXT N:B$ = GOTO 1520 
1380 VTAB 11: HTAB 8: PRINT - * : VTAB 11 : HTAB 8: PRINT N 

: VTAB 9; HTAB 21: PRINT ' ': VTAB 9: HTAB 21: PRINT 

M 

1390 'VTAB 10: HTAB 21: PRINT 140$:: VTAB 10: HTAB 21: IWERSE 
: PRINT CLf(M)::XL = LC(M): VTAB 11: HTAB 10: PRINT 140$ 

: VTAB 11: HTAB 20 - LEN (RO$(N)>: PRINT RO$(N);: NORMAL 


1400 MM = N:MM = M ♦ 1 : IF MM > NC THEN MM = 0:NN = 0 
1410 IF UK<M4 v m> = 1 THEN XL = LC(M) + 1 
1420 VTAB 11: HTAB 21 ♦ LEN (B$): GET A$: IF A$ = CHR$ (1 
3) THEN 1470 

1430 IF A$ = CHR$ (8) THEN 8$ = ": VTAB 11: HTAB 20: PRINT 
140$ ;140$ ; : GOTO 1420 

1440 IF LEN (B$) ( 1 AND A$ = CHR$ (36) THEN PRINT CHR$ 
(7);: GOTO 1420 

1450 IF LEN (B$) < XL THEN B$ = B$ + A$: VTAB 11: HTAB 21: 

PRINT B$;: GOTO 1420 
1460 PRINT CHR$ (7);: GOTO 1420 

1470 CT$(N,N) = B$:B$ = VTAB 11: HTAB 21: PRINT UO$: IF 
LEN (CT$(N.M>) > = LC(M) THEN 1490 
1480 CT$(N,M) = CT$(N,M) ♦ LEFT$ (WO$,LC(M) - LEN (CT$(N,M 

1490 ÌF FY = 1 THEN RETURN 
1500 GOTO 1370 

1510 REM — IM1AGA2ZINA IN MEMORIA — 

1520 TEXT : HOME : VTAB 8: HTAB 6: INVERSE : PRINT 1 ST 
0 COMPILANDO 3 DATI a : VTAB 9: HTAB 6: PRINT 'PUÒ' 
RICHIEDERE *:: FLASH : PRINT 'PARECCHI';: INVERSE : PRINT 
' MINUTI': NORMAL 

1530 FOR N = 1 TO NR:TS$(N) = CHR$ (58): FOR M = 1 TO NC: IF 
UK(N.M) = 2 THEN TS$(N) = TS$(N) ♦ G$(LC(M>) ♦ CHR$ (5 
8): GOTO 1580 

1540 IF 14K(N.M) = 3 THEN TS$(N) = TS$(N) 4 D$(LC(M)) 4 CHR$ 
(58): GOTO 1580 

1550 W = NsMM = M ♦ 1 : IF MM ) NC THEN fti = 0:W = 0 
1560 IF LEN (CT$(N.M)) ) LC(M) AND WK(W,»f1) = 1 THEN TS$( 

N) = TS$(N) 4 CT$(N,M): GO^O 1580 
1570 TS$(N) = TS$(N) 4 CT$(N,M) 4 CHR$ (58) 

1580 NEXT M: NEXT N:TS$(0) = CHR$ (58): FOR M = 1 TO NC:TS 
$(0) = TS$(0) 4 CL$(M) 4 CHR$ (58): NEXT M 
1590 U = LEN <TS$<1)): POKE 32742,U 4 j ; FOR 1 = 0 TO NR: POKE 
5,1 4 l:G$ = ' ' 4 TS$(I): CALL 32688:TS$(I) = "s NEKT 

1600 REM — VISUALIZZAZIONE — 

1610 TEXT : HOME : IWERSE : VTAB 4: HTAB 11: PRINT UO$;WO$ 

;UO$; : NORMAL : PRINT : POKE 3,1s CALL 32512: FOR 1 = 1 
T 0 NR 

1620 VTAB 4 4 I; HTAB 1: PRINT RO$(l);: NEXT I: NORML :B$ = 

"Z" 

1630 VTAB 1: HTAB 1: INVERSE : PRINT •<- 0 < SCROLL > 0 -) 

S = SALVARE '; : PRINT ' (Q = RIPARTIRE) C = 
CORREZIONE * : : NORMAL 
1640 IF B$ < ) 'Z' THEN 1610 

1650 'VTAB 4: HTAB 11: GET A$: IF A$ = CHR$ (8) THEN Y = Y 4 
10 

1660 IF A$ = CHR$ (21) THEN Y = Y - IO 

1670 IF A$ = CHR$ (60) OR A$ = CHR$ (44) THEN Y = Y 4 1 

1680 IF A$ = CHR$ (62) OR A$ = CHR$ (46) THEN Y = Y - 1 

1690 IF A$ = CHR$ (83) THEN 1750 

1700 IF A$ = CHR$ (67) THEN 1770 

1710 IF A$ = CHR$ (81) THEN PRINT : HOME : VTAB 12: IWERSE 

: PRINT "PER CANCELLARE IL FORMATO CORRENTE E ': VTAB 
13: PRINT 'RICOMINCIARE BATTI 'E NORMAL : GET B$: IF 
B$ = 'E' THEN PRINT B$: PRINT CHR$ <4);'RUN MICROCALC 

1720 IF Y ) 255 THEN Y = Y - 255 

1730 IF Y < 0 THEN Y = 255 4 Y 

1740 POKE 3,Y: CALL 32512: GOTO 1640 
1750 'VTAB 1: HTAB 1: CALL - 868: VTAB 2: CALL - 868: VTAB 
1: HTAB 9: INVERSE : PRINT * VA BENE COSI' *> 

':: GET A$; NORMAL : PRIffT A$;: IF A$ = 'S' THEN HOME 
: GOTO 2260 

1760 IF A$ < > 'N' THEN PRINT CHR$ (7);: GOTO 1750 
1770 TEXT : HOME :B$ = " 

1780 'VTAB 1: HTAB 1: INVERSE : PRINT ' BATTI IL NUMERO 
PER CAMBIARE ':: PRINT '1)NOME COLOMBA 2)N0ME RI 
GA 3)C0MMENT1 PRINT a 4)VA BENE 5)VEDERE IL PROSP 
ETTO ":: NORMAL 

1790 VTAB 4: HTAB 1: INVERSE : PRINT '(LE CORREZIONI NON AP 
PARI RAMO ANCORA SULLO SCHERMO)';: NORMAL ; VTAB 1 : HTAB 
40: GET A$:A = 'VAL <A$>: IF A < 1 ÓR A ) 5 THEN 1790 
1800 PRINT A$; 

1810 IF A = 4 THEN FX = 0: GOTO 1520 

1820 FX = 1 : QN A GOSUB 1840,1960,2080,2530,2530 

1830 GOTO 1770 

1840 TEXT : HOME : VTAB 1 : HTAB 1: INVERSE : INPUT 'ENTER N 
UMERO COLONIA ->';A$: NORMAL :M = VAL (A$): IF M < 1 OR 
M > NC THEN 1780 

1850 VTAB 2: HTAB 1: PRINT CL$(M) 

1860 VTAB 4: HTAB 1: INVERSE : PRINT 'ENTER NOME COLONI -> 

'; : NORMAL 

1870 VTAB 4: HTAB 21: GET A$: IF A$ = CHR$ (13) THEN 1930 

1880 VTAB 4: HTAB 21: PRINT 8$ 4 A$ 
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ordine casuale. Esiste anche una quin¬ 
ta opzione (CARICA IL FILE), che 
serve a richiamare il file di dati che 
volete, ma che naturalmente in prece¬ 
denza dovete aver costruito e poi me¬ 
morizzato. 

Per quanto riguarda la memorizza¬ 
zione di dati relativi all’esempio che 
stiamo costruendo, scegliamo l’opzio¬ 
ne che permette di introdurli riga per 
riga. La prima casella si riferisce allo 
stipendio di gennaio. Inseriamo 
1000000. Per comodità, in tutte le ca¬ 
selle di spesa inseriamo invece 100000. 
E così via per tutte le righe, fatta ecce¬ 
zione per l’affitto, che ipotizziamo pa¬ 
gato trimestralmente solo a gennaio e 
ad aprile, e le varie di giugno, che 
ipotizziamo in 200000. Infatti questi 
mesi sono più "pesanti" e lo sapevamo, 
in quanto abbiamo segnalato la cosa 


con un punto esclamativo, utilizzando 
il Commento. A questo punto potete 
salvare su disco il vostro modello, op¬ 
pure potete salvarlo su carta, utiliz¬ 
zando l’apposita opzione (Figura 3). 

Una volta riempite tutte le caselle 
dei dati, il programma eseguirà i calco¬ 
li e visualizzerà i risultati (figura 4). Se 
in una qualche casella viene visualizza¬ 
ta la parola ERROR, vuol dire che i 
dati calcolati per quella casella sono 
troppo grandi per poter stare in quella 
colonna. E’ importante rendersi conto 
a questo punto che i calcoli non saran¬ 
no esatti al 100%. L’Apple trova diffi¬ 
coltà a gestire numeri molto grandi o 
molto piccoli. Inoltre ha a quanto pare 
un proprio corredo di regole per l’ar¬ 
rotondamento dei numeri. Fate atten¬ 
zione . Questo non sarà un problema 
nella maggior parte delle circostanze, 


specialmente se si eseguono calcoli 
semplici. Se si stanno eseguendo cal¬ 
coli complicati, o si fa affidamento sui 
risultati dei calcoli per ulteriori opera¬ 
zioni di calcolo, la risposta finale potrà 
essere inesatta. Comunque si dovreb¬ 
be trattare al massimo di un errore 
dell’1% o 2%. Della maggior parte 
delle situazioni è stato tenuto conto 
nel programma con le routine a linea 
2250 dello SCRATCH-PAD, ma può 
ancora verificarsi qualche problema. 

Revisione del modello 

A questo punto è possibile prendere 
visione dell’intero file adoperando le 
frecce. Saranno visualizzati trenta ca¬ 
ratteri alla volta, cioè un minimo di tre 
colonne. Un’utile caratteristica della 
visualizzazione è la possibilità di con- 


1890 IF Al = CHRI (8) THEN Bl = 8B : GOTO 1870 
1900 0$ = Bl + A*: !F LEN <B$> = LC(M) THEN 1920 
1910 GOTO 1870 

1920 VI AB 4: HTAB 21: GET Al: IF Al < ) CHRI (13) THEN PRINT 
CHRI (7):: GOTO 1920 
1930 IF 81 = ■■ THEN RETURN 

1940 IF LEN (81) = LC(M) THEN Cll(M) = BI:BI = 88 : RETURN 

1950 CLKH) = Bl ♦ LEFTI <W0l,LC(M) - LEN <BI)): RETURN 
I960 T EXT ; HOME : VTAB 1: HTAB 1: INVERSE : INPUT 8 ENTER N 
UMERO RIGA -> 8 :AI: N0RMAL :N = VAL (Al): IF N < 1 OR N 
> NR MN 1780 

1970 VTAB 2: HTAB 1: PRINT RQI(N) 

1980 VTAB 4: HTAB 1: INVERSE : PRINT 8 ENTER NOME RIGA 

N0RMAL 

1990 VTAB 4: HTAB 18: GET Al: IF Al = CHRI (13) THEN 2050 

2000 VTAB 4: HTAB 18: PRINT Bl ♦ Al 

2010 IF Al = CHRI (8) THEN Bl = 88 : GOTO 1990 

2020 Bl = Bl 4 Al: IF LEN (Bl) = 10 THEN 2040 

2030 GOTO 1990 

2040 VTAB 4: HTAB 21: GET Al: IF Al < > CHRI (13) THEN PRINT 
CHRI (7):: GOTO 2040 
2050 IF Bl = THEN RETURN 

2060 IF LEN (Bl) = 10 THEN ROI(N) = BI:BI = 88 : RETURN 

2070 R0*(N) = LEFTI (U0l,(10 - LEN (Bl))) 4 Bl: RETURN 

2080 TEX 7 : HOME 

2090 VTAB 1: HTAB 1: INVERSE : INPUT 8 ENTER NUMERO RIGA ->■ 
;A!:N = VAL (Al): IF N < 1 OR N > NR THEN 1780 
2100 VTAB 2: HTAB 1: INPUT *ENTER NUMERO C0L0N4A -> 8 ;AI:M = 

VAL (Al): IF M < 1 OR M > NC THEN 1780 
2110 IF UK(N,M) ( > 1 THEN RETURN 
2120 VTAB 10: HTAB 1: PRINT "VECCHIO CQttlENTO NORMAL 
: PRINT CTI(N,M): INVERSE 

2130 VTAB 5: HTAB 1: PRINT ROI(N);: VTAB 4: HTAB 12: PRINT 
CLKM) ; : NORMAL :BI = 88 

2140 W = N:MM = M ♦ 1: IF W > NC THEN MM = 0:NN = 0 
2150 LX = lC(M) : IF WK<W,MM) = i THEN LX = LX ♦ 1 
2160 VTAB 5: HTAB 12 + LEN (Bl): GET Al 
2170 VTAB 5: HTAB 12: PRINT Bl ♦ Al 
2180 IF Al = CHRI (13) THEN 2240 

2190 IF Al = CHRI (8) THEN Bl = * * : VTAB 5: HTAB 12: PRINT 
NOI;: GOTO 2160 

2200 Bl = Bl 4 Al: IF LEN (Bl) = LX THEN PRINT CHRI (7);: 

GOTO 2220 
2210 GOTO 2160 

2220 VTAB 5: HTAB 13 4 LX: GET Al: IF Al = CHRI (8) THEN B 
I = 88 : VTAB 5: HTAB 13: PRINT U0l;U0l:: GOTO 2160 
2230 IF Al < ) CHRI (13) THEN PRINT CHRl (7);: GOTO 222 
0 

2240 IF LEN (Bl) < LX THEN CTI(N,M) = Bl 4 LEFTI (UOI.LX - 
LEN (Bl)): RETURN 
2250 CTKN.M) = Bl: RETURN 

2260 HOME :8I = •“: VTAB 1: HTAB 1: INVERSE : PRINT 8 

DATE UN NOME AL FILE B ; : NORMAL : PRINT •- 

>■; 


2270 VTAB 2: HTAB 4: PRINT CHRI (60) 4 CHRI (45) 

2280 VTAB 1 : HTAB 1 : GET Al 
2290 IF Al = CHRl (13) THEN 2360 
2300 IF Al = CHRl (8) THEN Bl = ": GOTO 2260 
2310 VTAB 2: HTAB 3: PRINT Bl 4 Al 4 CHRI (60) 4 CHRI <45 
) 

2320 Bl = Bl 4 Al: IF LEN (Bl) > 18 THEN PRINT CHRl (7);: 

GOTO 2340 
2330 GOTO 2280 

2340 PRINT : PRINT 8 18 CARATTERI MASSIMO ": VTAB 1: HTAB 
1: GET Al: IF Al = CHRl (8) THEN Bl = "": GOTO 2260 
2350 IF Al < ) CHRl (13) THEN PRINT CHRI (7)::BI = 88 : GOTO 
2260 

2360 jc Bl = 81 THEN 2280 

2370 VTAB 6: PRINT 8 INSERITE IL DISCHETTO SUL QUALE VOLETE 8 
: PRINT 'SALVARE INVERSE : PRINT Bl:: NORMAL : PRINT 
: INVERSE : VTAB 9: HTAB 3: INPUT 'PREMÉTE RETURN QLWD 
0 SIETE PRONTI";AI: NORMAL 

2380 PRINT : PRINT CHRI <4): 8 8SAVE DISPLAYER 8 ; CHRl (44); 8 
AI7F00" : CHRl U4); n LIED^ 

2390 m = Bl: P RINT Al:: PRINT : PRINT CHRI <4); 8 BSAVE F. 8 

fitti: CHRI (44) ; a A32768 B : CHRl (44) : 8 L5376 8 
2400 HOME : VTAB 6: HTAB 8: PRINT 'INSERITE IL DISCHETTO 8 : VTAB 
7: HTAB 8: PRINT 'CHE CONTIENE B ;: INVERSE : PRINT 8 MI 
CROCALC- 8 

2410 F0R I = 1 T0 4: PRINT CHRI (7);: NEXT I 
2420 INVERSE : VTAB 9: HTAB 5: INPUT 'PREMETE RETURN GUMD0 
SIETE PRONTI 8 ;AI: NORMAL 

2430 TEXT : HOME : VTAB 12: HTAB 12: IWERSE : PRINT "STO S 
ALVANB0 ! DATI 8 : NORMAL 
2440 PRINT : PRINT CHRl (4): 8 0PEN TEMP-FILE 8 
2450 PRINT CHRl (4);"URITE TEMP-FILE 8 
2460 PRIN T NR: PRINT NC: PRINT m 
2470 F0R I = 1 T0 NC: PRINT LC(I): NEXT 1 

2480 F0R I = 1 T0 NR: PRINT ROI(I): NEXT I 

2490 F0R I = 1 T0 NC: PRINT CLKI): NEXT I 

2500 F0R N = 1 T0 NR: F0R M = 1 T0 NC: PRINT WK(N.M): NEXT 

M: NEXT N 

2510 PRINT CHRI (4); 8 CLOSE TEMP-FILE 8 
2520 PRINT CHRl (4):*RUN !ilCROCALC.11" 

2530 TEXT : HOME : INVERSE : ‘VTAB 4: HTAB 11: PRINT W0l;U0l 
: UDÌ;: NORMAL : PRINT : POKE 3,1: CALL 32512: FQR 1 = 1 
TO NR 

2540 VTAB 4 4 I ; HTAB 1 : °RINT R0l(I):: NEXT I: NORMAL 
2550 VTAB 1: HTAB 1: INVERSE : PRINT *<- 0 < SCR0LL > 0 -> 
R=PRECEBENTE 8 ; : NORMAL 
2560 VTAB 4: HTAB 11: GET Al 
2570 IF Al = CHRl (8) THEN Y = Y 4 10 
2580 IF Al = CHRI (21) THEN Y = Y - 10 
2590 IF Al = CHRI (60) OR Al = CHRl (44) THEN Y = Y 4 1 

2600 IF Al = CHRI (62) OR Al = CHRl (46) THEN Y = Y - 1 

2610 IF Al = CHRI (82) THEN L2 = 1:LZI = Bl: RETURN 
2620 IF Y > 255 THEN Y = Y - 255 

2630 IF Y < 0 THEN Y = 255 + Y 

2640 POKE 3,Y: CALL 32512: GOTO 2560 
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■UHM 


LISTATO M1CROCALC II 


1 REM ««a******************* 

2 REM * MICROCALC.il » 

3 REM * DI STEVEN BOHN » 

4 REM * COPYRIGHT (0 1985 * 

5 REM * BY APPLICANDO 4 * 

6 REM * M1CR0-SPARC INC * 

7 REM ********************** 

20 ONERR GOTO 2060 

30 POKE 4,0: HÌMEM: 32510 

40 DIM LCÌ21),CL$(2!),R0$(21),UK(21,21),TS$(21),F$(21,21), 
CC$<100> 

50 m = D REM DIECI SPAZI 

60 PRINT : PRINT CHR* <4): B 0PB4 TEMP-FILE" 

70 PRINT CHR* <4);"READ TEMP-FILE" 

80 INPLIT NR: INPUT NC: INPUT NM$ 

90 FOR I = 1 T0 NC: INPUT LC(I): NEXT I 
100 FOR I = 1 T0 NR: INPUT RO$(I): IF LEN (RO$(D) < 10 THEN 
R»(I) = LEFT* <WO$,10 - LEN <RO$(I))> ♦ RW(I) 

110 NEXT I 

120 FOR 1 = 1 TO NC: INPUT CL$(I): IF LEN <CL$(I)) < LC(I 
) THEN CL$(I) = LEFT$ <WO*,LC(I) - LEN <CL*(I>>) + C 
L$<I) 

130 NEXT I 

140 FOR N = 1 T0 NR: FOR M = 1 TO NC: INPUT UK(N,M): NEXT 
M: NEXT N 

150 PRINT CHRI (4)i'CLOSE TEMP-FILE 1 : PRINT CHR* (4);"DE 
LETE TEMP-FILE" 

160 REM — COSTRUZIONE FILE SALVATAGGIO — 

170 li = CHR$ (34):Y$ = 2$ ♦ CHR* <58>:LN = 10000:CC = CC 
4 1:A* = "10000":CC*(CC) = M ♦ "REM — DATI — ":C 
C = CC 4 1:LN = LN ♦ 1:A$ = STR$ (LN) 

180 ND = 0: FOR N = 1 TO NR: FOR M = 1 TO NC: IF WK(N,M) = 

3 THEN ND = ND ♦ 1 
190 NEXT M: NEXT N 

200 CC$(CC) = A* + *NR=" 4 STR* (NR) 4 CHR* (58) 4 -NO" ♦ 
STRI (NC) + CHR$ (58) 4 "ND=" 4 STR* (ND) 4 CHR$ ( 

58) 4 4 CHR$ (34) 4 m + CHR$ (34) 

210 CC = CC 4 hLN = LN 4 1 ;A$ = STR$ (LN) 

220 CC$(CC) = A$ ♦ "RO$(l)=" 4 2i 4 RQ*(1) 4 Y* 4 "RO$<2)=" 

4 2$ 4 R0$(2) 4 n 4 , R0$(3)=" 4 2$ 4 R0$(3) d«4' 
RO$<4)=" 4 li 4 RW<4) 4 Y$ 4 *RO$(5)=" 4 li 4 R0*<5) 4 
li 

230 CC = CC 4 l :LN = LN 4 1 ;A$ = STR$ (LN) 

240 CC$(CC) = A* 4 *RO$(6)=* 4 li 4 R0$(6) 4 Y$ 4 "R0$<7>=" 

4 li 4 R0$(7) 4 Y$ 4 i R0$(8)=" 4 Z* 4 RO$<8) 4 Y$ 4 * 
R0$(9)=* 4 Z$ 4 R0$(9) 4 Y$ 4 "RO$(10)=" 4 li 4 RO*<10 

) 4 li 

250 CC = CC 4 1:LN = LN 4 l;A* = STR* (LN) 

260 CC$(CC) = A$ 4 "RO$(ll)=" 4 li 4 RO$(ll) 4 Y* 4 -R0$(12 
)=" 4 2$ 4 R0$<12) 4 Y* 4 "RO$(13)=" 4 li 4 RO$(13) 4 
Y* 4 "R0$(14)=" 4 Z$ 4 R0$(14) 4 Y$ 4 , RO$(15)=" 4 li 4 
ROM 15) 4 li 

270 CC = CC 4 1 :LN = LN 4 \-M = STR* (LN) 

280 CC*(CC) = A$ 4 "RO$(16)=" 4 Z$ 4 R0$<16) 4 Y$ 4 'RO$<17 
)=" 4 li 4 RQ$(17) 4 Y$ 4 "RO*<18)=" 4 li 4 R0$<18) 4 
Y* 4 "RO$(19)=" 4 H 4 ROM 19) ♦ Y$ 4 "R0$<20)=" 4 li 4 
ROM20) 4 li 

290 CC = CC 4 1 :LN = LN * 1 :A$ = STR* (LN) 

300 CCf(CC) = A$ 4 -CL^(1)=" 4 n 4 CLM1) 4 Y$ 4 "CL$<2)=" 

4 li 4 CL$(2) + Y$ 4 ■CL$(3)=" 4 li 4 CL$<3) 4 Y< 4 ' 
CL$<4)=" 4 Z$ 4 CL$(4) 4 Y$ 4 "CL$(5)=* 4 Z$ 4 CL$<5> 4 
H 

310 CC = CC 4 1 :LN = LN 4 1:A* = STR$ (LN) 

320 CC$(CC) = A$ 4 •CL$(6)=" 4 li 4 CL$<6) 4 Y$ 4 "CL$<7>=" 

4 li 4 CLM7) 4 n 4 *CLM8)=" 4 li 4 CL*<8> 4 Y* 4 ■ 
CL$(9)=" 4 li 4 CL$(9) 4 Y$ 4 , CL$(10)=" 4 li 4 CLM10 

) 4 li 


330 

340 


350 

360 


370 

380 

390 

400 

410 


420 

430 


CC = CC 4 l;LN = LN 4 ];A$ = STR$ (LN) 

CC$(CC) = A$ 4 "CL$(11)=' 4 li 4 CLM11) 4 Y$ 4 "CL$<12 
)=" 4 li 4 CLM12) 4 Y$ 4 , CL$(13)=" 4 li 4 CLM13) 4 
Y$ 4 , CL$<14)=* 4 li 4 CL$<14) 4 Y$ 4 i CL$(15)=" 4 li 4 
CLM15) 4 li 

CC = CC 4 l;LN = LN 4 hA$ = STR$ (LN) 

CCMCC) = A$ * "CL$(16)=* 4 Z$ 4 CL$(16) 4 Y$ 4 'CL$(17 
)=" 4 li 4 CL$(17.) 4 Y$ 4 *CL$(18)=" 4 z$ 4 CL$<18) 4 
Y$ 4 "CL$(19)=" 4 li 4 CL$<19) 4 Y$ 4 *CL$(20)=" 4 li 4 
CLM 2Q) 4 li 

CC = CC 4 1 ;LN = LN 4 1;A$ = STR$ (LN):CC$(CC) = M 4 
* RETURN":FX = 0 
CC = CC 4 1 


REM — INTRODUZIONE FORMULE — 

X = FRE (0) 

FOR N = 1 TO NR: FOR M = 1 TO NC: IF WK(N,M) 

430 

HOME : NEXT M: NEXT N: GOTO 990 
HOME : IWERSE : VTAB 2: HTAB 3: PRINT " 

FORMULE ": VTAB 3: HTAB 3: PRINT 

PER SCEGLIERE RlGA/COLOffU ": VTAB 4: HTAB 3: PRINT 
RETURN=FINE CTRL-V VISTA TOTALE ": NORMAL : POKE 34 


2 THEN 


ENTER 

ESCAPE 


»5 


440 VTAB 6: HTAB 6: PRINT "FORMULE IN RIGA ";N;" , COLOW^ 

450 IF ? DF = 1 THEN VTAB 13: HTAB 1: IWERSE : PRINT "VECC 
HIA FORMULA";: NORMAL : PRINT g = ";F$(N,M) 

460 VTAB 8: HTAB 12: INVERSE : PRINT CLÌ(M):'VTAB 10: HTAB 
11 - LEN (RO$(N)): PRINT RQ*(N>: NORMAL :B$ = "" 

470 IF L2 = 1 THEN L2 = 0:B$ = ili:lli = •" 

480 VTAB 10: HTAB 12: PRINT B$:: GET A$ 

490 IF A$ = CHR$ (13) THEN 576 

500 IF A$ = CHR$ (22) THEN GOSUB 860: GOTO 430 

510 IF A* = C'HR$ (27) THEN 640 

520 IF A$ = CHR$ (8) THB^ B$ = "":C$ = "": HOME : GOTO 44 

0 

530 IF A* = CHR* (94) THEN 550 

540 A = ASC (A$) : IF A ( 40 OR A ) 62 OR A = 44 OR A = 58 OR 
A = 59 OR A = 61 THEN 480 

550 B$ = B$ 4 A$: IF LEN <B$) > 200 THEN B$ = "*:C$ = ": HOME 
: GOTO 440 

560 Zi = C$ 4 A$: GOTO 480 
570 IF B* = " THEN 480 

580 VTAB 16: HTAB 11: INVERSE : PRINT "VA BENE ?" : : NORMAL 
: GET A*: IF A* = "S" THEN F$(N,M) = C*:C$ = HOME 


590 

600 

610 


620 

630 

640 


IF A* = "S" THEN IF FX = 1 THEN RETURN 
IF A$ = "S" THET>' 420 

IF Ai = "N" THEN B* = "":CS = B-$:D$ = B$: VTAB 16: HTAB 
11: PRINT WO$;WO$: VTAB 10: HTAB 12: CALL - 958: GOTO 
480 

PRINT CHR$ (7);: GOTO 580 
REM - RIGA E COLONNA -- 

VTAB 15: HTAB 1: INVERSE : PRINT "ENTER NUMERO RIGA":: 
NORMAL : PRINT UO$;: VTAB 15: HTAB 18: GET A$: IF A* = 
CHR$ (81) THEN 850 

IF Ai = CHR$ (13) THEN PRINT CHR$ (7);: GOTO 640 


650 

660 D$ = A*: PRINT A$;: GET Ai\ IF A$ = CHR$ (81) THEN 850 

670 IF Ai = CHR$ (8) THEN D$ = "":A$ = "": GOTO 640 
680 IF Ai = CHR$ (13) THEN D = VAL (W) : IF D < 1 THEN PRINT 
CHR$ (7):: GOTO 640 
690 IF A$ = ÒHR$ (13) THEN 730 
700 D$ = D$ ♦ A$: PRINT A$; 

710 GET Aii IF Ai = CHR$ (8) THEN D$ = *":A$ = "": GOTO 6 
40 

720 IF Ai < ) CHR* (13) THEN PRINT CHR$ (7);: GOTO 710 

730 D = VAL <D$): IF D < 1 OR D > 20 THEN PRINT CHR* (7) 

; : GOTO 640 

740 VTAB 16: HTAB 1: INVERSE : PRINT "ENTER NUMERO COLONNA 
":: NORMAL : PRINT WO$:: VTAB 16: HTAB 21: GET Ai\ IF 
Ai = CHR* (81) THEN 850 

750 IF Ai = CHR$ (13) THEN PRINT CHR* (7);: GOTO 740 
760 W = A*: PRINT A*;: GET A*: IF Ai = CHR* (81) THEN 850 

770 IF A$ = CHR$ (8) THEN D* = "":A$ = "": GOTO 740 

780 IF Ai = CHR* (13) THEN E = VAL (D$): IF E < 1 THEN PRINT 

CHR$ (7)s; GOTO 740 
790 IF Ai = CHR$ (13) THEN 830 
800 D* = D$ ♦ A*: PRINT A*; 

810 GET A*: IF A$ = CHR$ (8) THEN D$ = "":A$ = ": GOTO 7 
40 

820 IF A* < > CHR$ (13) THEN PRINT CHR$ (7);: GOTO 810 

830 E = VAL <D$>: IF E < 1 OR E > 20 THEN PRINT CHR$ (7) 

: : GOTO 740 

840 W = ’":A$ = CHR$ (91) 4 STR* (D) + CHR$ (44) 4 STR$ 

(E) 4 CHR$ (93):B$ = B$ 4 a$:E$ = CHR$ (68) 4 CHR* 

(40) 4 Sm <D) 4 CHR$ (44) 4 STR$ (E) 4 CHR$ (41) 

:C$ = C$ 4 E$ 

850 VTAB 15: HTAB 1: CALL - 958: VTAB 10: HTAB 12: PRINT 
8$: GOTO 480 

860 TEXT : HOME : IWERSE : VTAB 4: HTAB 11: PRINT WO*:WO$ 

:WO$;: NORMAL : PRINT : POKE 3,1: CALL 32512: FOR 1 = 
i TO NR 

870 VTAB 4 4 1: HTAB 1: PRINT ROM!):: NEXT I: NORML 
880 VTAB 1: HTAB 1: IWERSE : PRINT '<- 0 ( SCROLL > 0 -) 

R = PRECEDENTE "s: NORMAL 
890 VTAB 4: HTAB 11: GÉT A$ 

900 IF A$ = CHR$ (8) THEN Y = Y 4 10 

910 IF A$ = CHR$ (21) THEN Y = Y - 10 

920 IF A* = CHR$ (60) OR A$ = CHR$ (44) THEN Y = Y 4 1 

930 IF A$ = CHR$ (62) OR Ai = CHR$ (46) THEN Y = Y - 1 

940 IF Ai = CHR$ (82) THEN LZ = 1:L2* = B$: RETURN 

950 IF Y ) 255 THEN Y = Y - 255 

960 IF Y ( 0 THEN Y = 255 4 Y 

970 POKE 3,Y: CALL 32512: GOTO 890 

980 REM — REVISIONE FORMULE — 

990 B$ = "": TEXT : HOME : VTAB 12: HTAB 1: INVERSE : PRINT 
•VOLETE RIVEDERE LE FORMULE ?" ; : NORMAL : GET A^: IF A 
i < > "S" THEN Ilio 
1000 FOR N = 1 TO NR: FOR M = 1 TO NC 
1010 IF WK(N,M) = 2 THEN 1030 
1020 NEXT M: NEXT N: GOTO 1110 

1030 TEXT : HOME : VTAB 5: HTAB 21: PRINT "COLONI N.";M 

Continua 
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E J Sei proprio sicuro che il tuo computer ^ 

sia sempre al sicuro? 

Siete certi di aver messo al riparo il vostro computer dai più comuni rischi 
e incidenti che possono capitargli? Rispondete sinceramente 
a queste 7 domande, sia che abbiate già sottoscritto una polizza assicurativa, 

sia che ancora non l'abbiate fatto. 



Sempre più compatti e proprio per questo 
sempre più portatili (si pensi all'Apple //c), i 
personal si trasportano da casa all'ufficio, e 
viceversa, con estrema facilità. E se durante il 
tragitto si ha un incidente? Pagate voì?aSìoNo 




Andate al mare, in montagna, a casa di un 
amico e vi fermate lungo il tragitto per una 
commissione, un ladro vi ruba il computer dal 
portabagagli. Pagate voi? □ Sì u No 



Partite per una vacanza e decidete di portare 
con voi il vostro personal. Andate in 
albergo, in una casa in affitto o nella villa 
di vostro fratello, e succede qualcosa al vostro 
computer. Pagate voi? n sì a No 




Siete nel bel mezzo di un 'applicazione 
complicata. Non volete interrompervi ma 
nemmeno rinunciare a un whisky on thè rocks 
o al caffè. Ahimè, il liquido finisce sulla 
tastiera mandando in cortocircuito il 
computer. Pagate voi? a sì □ No 



Vostro figlio si avvicina al computersenza 
essere visto e comincia a picchiarci sopra con 
un oggetto più duro del vostro computer. 
Pagate voi? □ Sì □ No 




Se qualche vostro amico o una vostra 
impiegata si fa male maneggiando il vostro 
personal, pagate voi? a sìa no 


RISPOSTE 

7 No. il vostro computer è davvero al sicu¬ 
ro. Bravi. 

6 No e 1 Sì. Valutate bene se il caso in cui 
avete risposto sì ha scarse possibilità di 
verificarsi. Potrebbe valere la pena di ri¬ 
schiare e di lasciare le cose come stanno. 
Da 2 a 7 Sì. Affrettatevi a leggere il box qui 
sotto, perché il vostro computer non è 
affatto al sicuro, il che potrebbe causarvi 
un sacco di fastidi e farvi perdere un muc¬ 
chio di soldi. 


e applicando 

vi mettono al sicuro 

Sicuramente sarete convinti che esista già da tempo una 
polizza per assicurare il personal computer Non è cosi 
Finora tutte le compagnie di assicurazione hanno creato 
polizze nate per garantire i grossi centri di eiaoorazione 
dati e solo in seguito hanno adattato queste polizze alle 
esigenze di coloro che vogliono assicurare il proprio perso 
nai Ma una polizza adattata non può certo paragonarsi a 
una polizza nata apposta per soddisfare le esigenze del 
possessore di un personal computer Applicando in colla 
borazione con la Ras una delle piu importanti compagnie di 
assicurazioni italiane ha studiato a fondo il problema E 
nata cosi la Polizza Applicando la prima e per il momento 
unica assicurazione che copra tutti i rischi relativi al posses 
so e ali uso di un personal e delle sue periferiche istampan 
ti drive video ecc) Applicando è orgogliosa di presentarla 
in anteprima ai suoi lettori e di offrire loro la possibilità di 
sottoscriverla nella maniera piu semplice Basta leggere 
attentamente le condizioni pubblicate alla pagina seguen 
te compilare il tagliando e spedirlo a Editronica srl Polizza 
Applicando Corso Monforte 39 20122 Milano Avrete cosi 
risolto per sempre tutti i vostri problemi 








































Condizioni generali di assicurazione. 


1) Premessa 

a) l’adesione alla presente polizza è riservata ai proprie¬ 
tari di un Personal Computer il cui valore stabilito 
come alla Condizione 6) sia superiore a L. 2.500.000 
IVA compresa; 

b) l’adesione alla presente polizza da parte dei proprie¬ 
tari di personal Computer avverrà a mezzo invio di 
apposita cartolina con il relativo importo di premio; 

c) l'intestatario della cartolina sarà considerato a tutti gli 
effetti come l’Assicurato; 

d) la garanzia sarà operante dalle ore 24 del giorno di 
spedizione della cartolina, risultante dal timbro posta¬ 
le. La copertura avrà durata un anno, sempreché la 
data di inizio della garanzia sia compresa nel periodo 
di validità della convenzione; 

GARANZIE PRESTATE E CONDIZIONI DI 
ASSICURAZIONE 

2) Sez. I - Danni materiali 

Derivanti da; 

a) incendio, opera di spegnimento e salvataggio, fulmi¬ 
ne, esplosione, scoppio, implosione; 

b) acqua e liquidi in genere, inondazione, alluvione, 
trombe, uragani, gelo, ghiaccio, neve, grandine, va¬ 
langa, caduta di massi e altri simili eventi; 

c) superamento del muro del suono, caduta di aeromo¬ 
bili o cose da essi trasportate; 

d) corto circuito, variazione di corrente, sovratensione 
arco voltaico, deficienze di isolamento, effetti di elet¬ 
tricità statica, induzione; 

e) imperizia, negligenza, errata manovra, nonché azioni 
dolose e colpose in genere; 

f) trasporti e smontaggi connessi con lavori di pulizia o 
di manutenzione; 

g) furto e rapina; 

h) terremoto, maremoto od eruzioni vulcaniche; 

i) persone che prendono parte a tumulti popolari, scio¬ 
peri , sommosse e che perpetrino indivudualmente od 
in associazione atti di terrorismo o sabotaggio verifi¬ 
catisi in occasioni di serrate. 

3) Sez. Il - Responsabilità Civile Terzi 

L’assiGurazione si intende inoltre prestata per la Respon¬ 
sabilità Civile derivante all’Assicurato dalla proprietà e 

dall’uso personale del Computer assicurato identificato 

nel certificato di assicurazione. 

I massimali di garanzia si intendono fissati in 


L. 100.000 000 per sinistro con il limite di 

L. 100.000.000 per ciascuna persona deceduta o che 
abbia subito lesioni personali 

L. 100.000.000 per danni a cose e/o animali. 

4) Esclusioni 

La Società non è obbligata per i danni dovuti a: 

- dolo dell’Assicurato; 

- corrosione, deperimento, logoramento che siano con¬ 
seguenza del normale uso o funzionamento o causati 
dagli effetti graduali degli agenti atmosferici; 

- per i quali deve rispondere il fornitore, venditore o loca¬ 
tore degli enti assicurati per legge o per contratto, o per 
inadeguata manutenzione; 

- causati da difetti di materiale o di costruzione che esi¬ 
stevano già all’atto della stipulazione della polizza ed 
erano a conoscenza dell’Assicurato; 

- causati direttamente od indirettamente da avvenimenti 
bellici, sommosse militari, invasioni, adozione di misure 
da parte di potenze straniere, rivoluzione, ribellione, 
insurrezione, assunzione od usurpazione di potere di 
carattere militare, sequestri; 

- verificatisi in occasione di esplosione, radiazione nu¬ 
cleare o di contaminazione radioattiva; 

- uso improprio del bene (mancato rispetto delle norme 
di impiego dettate dal costruttore); 

- danni estetici (quelli interessanti l’involucro esterno che 
non sia conseguenza di un danno risarcibile a termine 
della presente polizza); 

- guasti casualmente riconducibili ad interventi, a ripara¬ 
zioni e/o modifiche effettuate da un centro non autoriz¬ 
zato dalla casa costruttrice della macchina; 

- danni indiretti in genere. 

5) Operatività della garanzia 

a) La garanzia è operante solamente se gli enti assicurati 
sono ubicati presso il domicilio dell’Assicurato od in 
luoghi diversi da questi se in possesso dell'Assi¬ 
curato. 

b) La garanzia è pure efficace se i beni si trovano sull'au¬ 
tovettura in uso all’Assicurato, salvo i seguenti casi: 

- qualora l’autovettura venga lasciata incustodita dal¬ 
le ore 22 alle ore 6; 

- qualora l’autovettura regolarmente chiusa a chiave 
venga lasciata incustodia dalle ore 6 alle ore 22 e gli 
enti assicurati non opportunamente occultati nel 
bagagliaio. 


c) Limitatamente ai danni di rottura la garanzia è effica¬ 
ce solamente nel caso questi siano dovuti ad un inci¬ 
dente in cui rimanga coinvolto anche il veicolo in uso 
dell’Assicurato che trasportava i beni assicurati. 

d) Per gli enti per i quali non è stato stipulato il contratto 
di manutenzione e/o assistenza con la casa costrut¬ 
trice e/o ditte di essa mandatarie qualora l'ente ri¬ 
chieda per norma del fornitore detto contratto, la 
Società non risponde dei danni verificatisi in conse¬ 
guenza di guasto meccanico e/o elettrico salvo che 
l'Assicurato provi che tale guasto sia causato da even¬ 
to esterno agli enti, assicurati o da incendio originato 
da uno di questi enti. 

6) Somma Assicurata 

La somma assicurata per ciascun ente deve corrispondere 
al costo di rimpiazzo, ossia al prezzo di listino della casa 
costruttrice ed escluso ogni sconto o prezzo di favore di 
un ente nuovo, eguale od equivalente per caratteristiche, 
prestazioni e rendimento economico 


7) Premio 

Per ogni singola applicazione è stabilito un premio forfet¬ 
tario omnicomprensivo cosi calcolato: 


Somma assicurata 

Premio 

da 2.500 000 a 3 000 000 

L. 

50 000 

da 3.000 000 a 5 000 000 

L. 

65 000 

da 5 000 000 a 7 000 000 

L. 

80 000 

da 7 000 000 a 10 000 000 

L. 

100 000 

da 10 000 000 a 15 000 000 

L. 

120 000 

da 15 000 000 a 20 000 000 

L. 

150 000 


8) Franchigia 

per ogni e qualsiasi danno che colpisca gli enti assicurati è 
stabilita una franchigia di: 

L 50.000 per somma assicurata fino a L. 5.000.000 
L. 100.000 per somma assicurata superiore a 
L. 5.000.000 

Per sinistri causati da eventi come ai punti g) ed h) delle 
garanzie prestate, la Società liquiderà i danni sotto dedu¬ 
zione di uno scoperto pari al 20% della somma assicurata, 
col minimo delle franchigie sopra stabilite. 

9) Rinvio alle norme di legge 

Per tutto quanto non è qui diversamente regolato, valgono 
le norme di legge. 


<- 


e applicando 

vi mettono al sicuro 


Si! Desidero assicurare i miei/il mio computer. Inviatemi a stretto giro di posta il certificato emesso dalla Ras. 
L’assicurazione avrà valore a decorrere dalle ore 24 del giorno di spedizione della mia adesione. Per la data fa fede il 
timbro postale. 


COGNOME. 

NOME . 

INDIRIZZO. 



CAP. CITTA’ . 


. PROVINCIA 

Assicuro i/il seguente personal: 

Marca e Modello 

N. di matricola 

valore (IVA compresa) 


Con le seguenti periferiche (stampanti, video, drive, hard disk, ecc) 

Marca e Modello N. di matricola valore (IVA compresa) 


Nel caso non abbiate sufficiente spazio ricopiate su un foglio il testo completo di questo tagliando indicando tutti i prodotti che intendete assicurare. 

Per un totale complessivo di Lire.su cui pago il premio calcolato in base alla tabella riportata qui sopra (su fondoverde). 

Allego assegno non trasferibile di Lire.intestato a Editronica srl, Corso Monforte 39,20l22Milano. 














































1032 IIWERSE : 'VTAB 6: HTAB 21: PRINT CLKM):: NORMAL : VTAB 
7: HTAB 1: PRINT "RIGA N.'jN;' IMMERSE : PRINT RO$ 
(N);: NORMAL 

1040 VTAB 7: HTAB 21: PRINT FKN.M) 

1050 TEXT : VTAB 22: PRINT '(PREMI 'Q' PER FINIRE, 'C' PER 
CAMBIARE)':: GET Al: 1F Al = CHR$ (13) THEN 1020 
1060 I c Al = 'Q* THEN FOR N = ! TO 2: NEXT N: FOR M = 1 TO 
2: NEXT M: HOME : VTAB 10: PRINT 'PREMI RETURN PER FIN 
IRE,': PRINT 'QUALSIASI ALTRO TASTO PER': PRINT 'RIVED 
ERE/CAMBIARE'; : GET Bl: PRINT Bl: IF B$ < > CHR$ (13 
) THEN HOME :GOT 

1070 IF 8 * = CHRI (13) THEN 1230 
1080 IF A* = *C' THEN 1110 
1090 PRINT CHRI (7) : : GOTO 1050 
1100 REM — CAMBIAMENTO FORMULE — 

1110 TEXT : HOME : INVERSE : VTAB 3: HTAB 11: PRINT 'BATTI 
(R) PER RIVEDERE*: NORMAL : VTAB 1 : HTAB 1 : PRINT *VU 
01 CAMBIARE UW FORMULA ? ':: GET Al: IF A* = 'N* THEN 
FOR N = 1 TO 2: NEXT N: FOR M = 1 TO 2: NEXT M: GOTO 
1230 

1120 IF Al = -R' THEN 990 
1130 IF A* < > 'S r THEN 1110 

1140 FX = 1: HOME : HTAB 11: PRINT '(PREMI 'Q' PER FINIRE)' 

: PRINT : INPUT 'ENTER NUMERO RIGA ->';NI 
1150 IF LEFTI (NI,1) = 'Q' THEN 990 

1160 N = VAL (NI): IF N < 1 OR N ) NR THEN 1140 

1170 HOME : HTAB 11: PRINT '(PREMI 'Q' PER FINIRE)': PRINT 
: INPUT "ENTER NUMERO COLONNA ->';NI 
1180 IF LEFTI (N$,!> = 'Q' THEN 990 

1190 M = 'VAL (NI): IF M < 1 OR M > NC THEN 1170 

1200 IF WK(N.M) < ) 2 THEN 1140 
1210 DF = 1 : ÓOSUB 430:FX = 0:DF = 0: GOTO 1110 
1220 REM — COSTRUZIONE DATI — 

1230 HOME : 'VTAB 12: HTAB 8 : INVERSE : PRINT 'STO SALVMDO 
LE FORMULE': NORMAL 

1240 CCKCC) = STRI ( 11000) 4 'REM— FORMULE — ' :CC = CC 
+ 1 

1250 FOR M = 1 TO NC 

1260 CC = CC 4 l-LN = 11000 4 (100 « M):AI = STRI (LN) 

1270 CCKCC) = Al 4 'REM— NESSUN DATO 
1280 FOR N = 1 TO NR 

1290 IF FKN.M) = " THEN NEXT N: GOTO 1330 
1300 Bl = *F(* 4 STRI (N) 4 CHRI (44) 4 STRI (M) 4 CHRI 
(41) 4 CHRI (61) 4 FKN.M) 

1310 IF LEN (Al) 4 LEN (Bl) < 200 THEN Al = Al 4 Bl 4 CHRI 
(58):CCI(CC) = Al: NEXT N: GOTO 1330 
1320 CCI(CC) = Al:CC = CC 4 1 :LN = LN 4 1:AI = STRI (LN) 4 
Bl 4 CHRI (58):CCI<CC) = Al: NEXT N 
1330 CC = CC 4 1 :LN = LN 4 hCCKCC) = STRI (LN) 4 'RETURN 
': NEXT M: FOR M = 1 TO NC: FOR N = 1 TO NR:FKN.M) = 

": NEXT N: NEXT M:X = FRE (0): GOSUB 1350: GOTO 1920 

1340 REM — DATI UTENTE — 

1350 HOME : FX = 0:CC = CC ♦ 1 :LN = LN 4 1:ND = 0 : FOR N = 

1 TO NR: FOR M = 1 TO NC: IF UK(N,M) = 3 THEN ND = ND 4 
1 

1360 NEXT M: NEXT N: DIM DFKND 4 H) : NE = 5 
1370 TEXT : HOME : INVERSE : PRINT ' ENTER DATI 

UTENTE ': VTAB 2: PRINT 'Q=F1NE R=RIPARTIR 

E CTRL-V=V1STA TOTALE" 

1380 VTAB 3: PRINT ' <- SCROLL -> 

': NORMAL 

1390 VTAB 4: CALL - 958:NE = NE ♦ 1 : IF NE ) ND 4 5 THEN 
1650 

1400 FOR I = - 5 TO 5: IF DFKNE 4 1 ) < > " THEN HTAB 
15: VTAB 13 4 I* PRINT NE - 5 4 I :•)" jDFKNE 4 I). 

1410 NEXT I: VTAB 13: HTAB 8 : PRINT 'RIGA -> ';: INVERSE : 

PRINT NE - 5;')":: NORMAL : PRINT DFKNE):: VTAB 13: HTAB 
25: PRINT '<- COLÒNI' 

1420 IF DFKNE) = ” THEN 1440 

1430 INVERSE : VTAB 14: HTAB 1: PRINT ROK 'VAL ( LEFTI (DF 
KNE),2))):: VTAB 14: HTAB 28: PRINT CLK VAL ( RIGHTI 

(DFKNE). li) 4 10 » VAL ( MIDI (DFKNE), LEN (DFKNE) 

) - 1 . 1 ))); 

1440 NORMAL : 'VTAB 5: HTAB 1: PRINT * 

0 ; : VTAB 5: HTAB 1: PRINT 'ENTER NUMERO RIGA GET 
Al 

1450 IF Al = ' 8 ' THEN RETURN 

1460 IF Al = 'R' THEN NE = 5: GOTO 1390 

1470 IF Al = CHRI (22) THEN GOSUB 860:NE = NE - 1: GOTO 
1370 

1480 IF Al = CHRI ( 8 ) THEN NE = NE - 2: IF NE < 5 THEN NE 
= 5: GOTO 1390 

1490 IF Al = CHRI ( 8 ) THEN 1390 

1500 IF Al = CHRI (21) THEN IF DFKNE) < > " THEN 1390 

1510 IF VAL (Al) < 1 THEN 1440 

1520 PRINT Al:: INPUT ";BI:BI = Al 4 BI:B = VAL (Bl): IF 
B < 1 OR 8 > 20 THEN 1440 
1530 N = B 

1540 VTAB 5: HTAB 1: PRINT 'ENTER NUMERO COLONI ';: GET A 
I 

1550 IF Al = 'Q' THEN RETURN 


1560 IF Al = B R' THEN NE = 5: GOTO 1390 
1570 IF Al = CHRI (22) THEN GOSUB 860:NE = NE - 1: GOTO 
1370 

1580 IF Al = CHRI ( 8 ) THEN NE = NE - 2: IF NE < 5 THEN NE 
= 5: GOTO 1390 

1590 IF Al = CHRI ( 8 ) THEN 1390 

1600 IF Al = CHRI (21) THEN IF DFKNE) < > " THEN 1390 
1610 IF VAL (Al) < 1 THEN 1440 

1620 PRINT Al:: INPUT "jBKBI = Al 4 Bl :8 = VAL (Bl): IF 
B < 1 OR è ) 20 THEN 1540 
1630 M = 6 : IF UK(N.M) < > 3 THEN 1440 
1640 DFKNE) = STRI (N) 4 CHRI (44) 4 STRI (M): GOTO 139 
0 

1650 'VTAB 22: HTAB 1: PRINT 'FATTO, PREMI 'S y PER SALVARE 
0 (- -> PERVEDERE*: :NE = 5 

1660 GET Al: IF Al = '$' THEN PRINT Al:: HOME : INVERSE : 

VTAB 10: HTAB 6 : PRINT 'STO SALVM0O 1 DATI UTENTE 
n : VTAB 11: HTAB 6 : *R1NT 'PUÒ-' RICHIEDERE DIVERSI MI 
NUTP : NORMAL : GOTO 1810 

1670 VTAB 3: HTAB 2: FLASH : PRINT 'S=SALVARE' ; : 'VTAB 3: HTAB 
30: PRINT 'C=CAM 8 IARE B ; : NORMAL 
1680 ‘VTAB 4: CALL - 958 
1690 IF Al = *R S THEN NE = 5: GOTO 1390 
1700 I c Al = CHRI ( 8 ) THEN NE = NE - 1 : IF NE < 6 THEN NE 
= ND 4 5 

1710 IF Al = CHRI (44) OR Al = CHRI (60) THEN NE = NE - 
10: IF NE < 6 THEN NE = ND 

1720 IF Al = CHRI (21) THEN NE = NE 4 1 ; IF NE ) ND 4 5 THEN 
NE = 6 

1730 IF Al = CHRI (46) OR Al = CHRI (62) THEN NE = NE 4 

10: IF NE > ND 4 5 THEN NE = 11 

1740 IF Al = CHRI (22) THEN GOSUB 860: HOME : GOTO 2080 

1750 IF Al = -C* ^EN 1850 

1760 FOR I = - 5 TO 5: IF DFKNE 4 1 ) < ) » THEN HTAB 
15: VTAB 13 4 I: PRINT NE - 5 4 1 :")" ;DFKNE 4 I); 

1770 NEXT 1: 'VTAB 13: HTAB 8 : PRINT 'RIGA 1WERSE : 

PRINT NE - 5;')':: NORMAL : PRINT DFKNE);: VTAB 13: HTAB 
25: PRINT '<- COLÒNI' 

1780 P DFKNE) = Bi THEN 1800 

1790 INVERSE : VTAB 14: HTAB 1: PRINT ROK VAL ( LEFTI (DF 
KNE),2))):: VTAB 14: HTAB 28: PRINT CLK VAL ( RIGHTI 
(DFKNE),!)) 4 10 * VAL ( MIUI (DFKNE), LEN (DFKNE) 

) - 1 . 1 ))): 

1800 NORMAL : GOTO 1660 

1810 NE = 5:CD = 0:CCKCC) = STRI (LN) 4 'DATA ': FOR I = 

6 TO ND 4 5 

1820 CD = CD 4 l: IF CD ( 44 THEN CCKCC) = CCKCC) 4 DFKI 
) 4 CHRI (44): NEXT I: RETURN 
1830 CCKCC) = CCKCC) 4 DFKI):CC = CC ♦ 1 :LN = LN 4 1:CCI 
(CC) = STRI (LN) 4 -DATA ':CD = 0 
1840 NEXT I: RETURN 

1850 VTAB 5: HTAB 1: PRINT 'ENTER NUMERO PASSO, RIGA, COLO 
MA ": INPUT 'ENTER ->' ;AI,BI.CI:A = VAL (AI):R = VAL 
(BI):C = VAL (CI) 

1860 IF A > ND THEN 1680 

1870 IF R ) NR THEN 1680 

1880 IF C ) NC THEN 1680 

1890 IF WK(R.C) ( ) 3 THEN 1680 

1900 DFKA 4 5) = STRI (R) 4 CHRI (44) 4 STRI (C): GOTO 
1680 

1910 REM — SALVATAGGIO SU DISCHETTO — 

1920 TEXT : HOME : NORMAL 

1930 VTAB 12: HTAB 8 : PRINT ' STO SCRIVENDO E SALVMDO :* 

1932 INVERSE : VTAB 14: HTAB 5: PRINT MI: NORMAL : VTAB 1 
6 : HTAB 5: PRINT 'PUÒ' RICHIEDERE DIVERSI MINUTI' 

1940 PRINT CHRI (13) 4 CHRI (4) ;'OPEN LIORKER" : PRINT CHRI 
(4): “ DELETE UORKER* 

1950 PRINT CHRI (4);'OPEN UORKER': PRINT CHRI (4);'URITE 
UORKER' 

I960 PRINT 'LOAD SCRATCH-PAD' 

1970 PRINT 'TEXT' 

1980 FOR I = 1 TO CC: PRINT CCKI): NEXT 1: PRINT 'HOME' 

1990 PRINT 'PRINT' 4 CHRI (34) 4 ■ INSERITE IL DISCHETTO 
SUL QUALE AVETE SALVATO IL PROGRAWA' 4 CHRI (34) 

2000 PRINT 'PRINT' 4 CHRI (34) 4 'PREMETE )»)>BARRA SPAZ 
IO«<<< QUANDO SIETE PRONTI' 4 CHRI (34): PRINT 'CA 
LL 32661' 

2010 PRINT *SAVE';Wil 

2020 PRINT 'RUN 8 

2030 PRINT CHRI (4);'CLOSE UORKER' 

2040 PRINT CHRI (4>;'EXEC UORKER" 

2050 END 

2060 A = PEEK (222):B = PEEK (218) 4 PEEK (219) » 256: IF 
A = 9 THEN HOME : PRINT CHRI (7):: VTAB 10: FLASH : PRINT 
'DISK FULL - INSERITE UN ALTRO DISCHETTO': NORMAL : FOR 
I = 1 TO 1000: GOTO 1520 

2070 HOME : VTAB 10: PRINT 'ERRORE NUMERO *;A: PRINT 'ALLA 
LINEA ';B: END 

2080 INVERSE : PRINT ' ENTER DATI UTENTE 

': VTAB 2: PRINT “Q=FINE R=RIPARTI RE CTRL-V=VIST 
A TOTALE': VTAB 3: PRINT * (- SCROLL -> 

•: NORMAL : GOTO 1670 
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LISTATO SCRATCH - PAD 


REM ************************* 


REM * 
REM * 
REM « 
REM « 
REM * 


10 
11 
12 

13 

14 

15 

16 
20 
30 
40 
50 
60 

70 FRINÌ 
80 BLKl) 


SCRATCH-PAD * 

DI STEPHEN BOHN * 

COPYRIGHT <0 1985 * 

BY APPLICANDO 4 * 

MICRO-SPARC INC * 

REM ************************* 

POKE 3,0: POKE 4,0: HIMEM: 32510 
QNERR GOTO 130 
TEXT : HOME 

DIM F(21.21),D(21,21) .CLK21) .RQK21) ,AI<30) 
GOSUB 10000 


CHRI (4)j'BLOAD F.*;NMI 
= B 8 :BLl(2) = n ':8LK3) = 


:BLK4) = 


':BLK6) = 8 
1 :BLK9) = 


:BLK7) = 


':BLI 


160 

170 


180 


190 

200 

210 

220 

230 


FRINÌ ‘FILE 


90 BLK 5) = 

( 8 ) = " 

100 TEXT 

110 FRINÌ CHRI (4);'BLGAD DISPLAYER' 

120 GOTO 2580 

130 REM — GESTIONE ERRORI — 

140 QX = PEEK (222) 

150 IF QX = 42 THEN RESTORE : GOTO 2580 
IF QX = 6 THEN GOSUB 1370: HOME : FLASH 
NOT FOUND": NORMAL : GOTO 1220 
IF QX = 9 THEN HOME : IWERSE : VTAB 10: PR1NT ‘DISK F 
ULL - INSERITE UN ALTRO DISCHETTO': NORMAL : PRINT CHRI 
<7)s: FOR I = 1 TO 1000: NEXT 1: GOTO 2580 
IF àx = 133 THEN TEXT : HOME : PRINT 'DIVISIONE PER 2E 
RO ': PRINT 'FORMULE NON CORRETTE ': FOR 1 = 1 TO 8000: 

NEXT 1 : CLEAR : RESTORE : GOTO 30 
IF QX = 254 THEN GOTO 1350 
IF QX = 5 THEN 1350 

TEXT : HOME : PRINT "ERRORE ALLA LINEA N.'; : PRINT PEEK 
(218) + PEEK (219) * 256 
END 

REM — DATI UTENTE — 

240 IC = IC ♦ 1:BI = s3 : READ R; READ C 

250 HOME : PRINT 'ENTER DATI PER RIGA B :R;' ,COLONNA ':C 

260 GOSUB 2010: INVERSE : HTAB 1: VTAB 4 ♦ R: PRINT ROÌ(R); 

: NORMAL 

270 GOSUB 1920: INVERSE : VTAB 3: HTAB 12: PRINT CLKC);: NORMAL 
280 GOSUB 660 

290 IF A* = 'Q' THEN RESTORE :IC = 0: RETURN 
300 IF IC ) = ND THEN RESTORE :IC = 0: RETURN 
310 GOTO 240 

320 REM — DATI RIGA — 

330 FOR R = 1 TO NR: FOR C = 1 TO NC 

340 HOME a : PRINT "ENTER DATI PER RIGA ';R;' ,COLOMBA ';C:BI 

350 GOSUB 1990: IF PEEK (32768 ♦ (R * 256) + LL) < > 163 THEN 
400 

360 GOSUB 2010: INVERSE : HTAB 1: VTAB 4 + R: PRINT ROKR); 

: NORMAL 

370 GOSUB 1920: INVERSE : VTAB 3: HTAB 12: PRINT CLKC);: NORMAL 
380 GOSUB 660 

390 IF Al = 'Q' THEN RETURN 
400 NEXT C: NEXT R: RETURN 
410 REM — DATI COLQMA — 

420 FOR C = 1 TO NC: FOR R = 1 TO NR 

430 H0ME b : PRINT 'ENTER DATI PER RIGA ';R;' ,COLONI ';C:BI 

440 GOSUB 1990: IF PEEK (32768 4 (R * 256) + LL) < ) 163 THEN 
490 

450 GOSUB 2010: INVERSE : HTAB 1 : VTAB 4 4 R : PRINT ROKR); 

: NORMAL 

460 GOSUB 1920: INVERSE : VTAB 3: HTAB 12: PRINT CLKC);: NORML 
470 GOSUB 660 

480 IF Al = *Q“ THEN RETURN 

490 NEXT R: NEXT C: RETUF9N 

500 REM — A661UNGE/CAMBIA DATI — 

510 HOME : VTAB 1: HTAB 8: INVERSE : PRINT “ AGGIUNGI 0 tth 
BIA DATI ": HTAB 8: PRINT ' <'Q' PER FINIRE) ': NQRML 

520 VTAB 3: HTAB 1 : CALL - 958: PRINT "ENTER NUMERO RIGA - 
>';: GET Al: PRINT Al:: IF Al = 'Q' THEN RETURN 
530 IF Al = CHRI (13) THEN 520 
540 INPUT ";BI:AI = Al 4 Bl 
550 R = VAL (Al): IF R < 1 OR R > 20 THEN 520 
560 VTAB 3: HTAB 1 : CALL - 958: PRINT 'ENTER NUME„ _ 

A GET Al: PRINT Al:: fF Al = 'Q" THEN RÈTUfil 


570 IF Al = CHRI (13) THEN 560 

580 INPUT ";BI:AI = Al 4 Bl 

590 C = VAL (Al): IF C < 1 OR C > 20 THEN 560 

600 GOSUB 2010: INVERSE : HTAB 1: VTAB 4 4 R ; PRINT RO$(R); 

: NORMAL 

610 GOSUB 1920: INVERSE : ‘VTAB 3: HTAB 12: PRINT CLKC) ; : NORMAL 

620 Bl = BLK LEN (CLKC))): GOSUB 2040: INVERSE : VTAB 3: HTAB 
12: PRINT CLKC):: NORMAL 

630 'VTAB 1: HTAB 1: PRINT "ENTER DATI PER RIGA ":R; 8 . COLO 
m ';C:BI = ": PRINT " ('Q' PER FINIRE)' 

640 VTAB 3: HTAB 1: PRINT " GOSUB 660: IF Al = 

8 Q B THEN RETURN 
650 GOTO 510 

660 REM — RICEVE DATI — 

670 Bl = ■■: VTAB 2: HTaB 11: PRINT "('Q' PER FINIRE)' 

680 VTAB 4 4 R : HTAB 11 4 LEN (CLKC)): GET Al 

690 IF Al = CHRI (13) THEN D(R,C) = VAL (Bl) / 100: RETURN 

700 IF Al = CHRI (83) THEN RETURN 

710 IF Al = CHRI (67) THEN Bl = n #' 4 "BLK LEN (CLKC)) - 

1): GOSUB 2040: INVERSE : VTAB 3: HTAB 12: PRINT CLKC 
):: NORMAL : GOTO 670 

720 IF Al = CHRI (8) THEN Bl = 4 BLK LEN (CLKC)) - 1 

): GOSUB 2040: INVERSE : VTAB 3: HTAB 12: PRINT CLKC); 

: NORMAL : GOTO 670 
730 IF Al = 'Q' THEN RETURN 
750 IF Al = CHRI (45) THEN 770 

760 IF ASC (AD < 48 OR ASC (Al) > 57 THEN PRINT CHRI ( 

7);: GOTO 680 

770 Bl = Bl 4 Al: GOSUB 2040: INVERSE : VTAB 3: HTAB 12: PRINT 
CLKC);: NORMAL 

780 IF LEN (Bl) < LEN (CLKC)) THEN 680 
790 raB 4 4 R: HTAB 11 4 LEN (CLKC)): GET Al 
800 IF Al = CHRI (67) OR Al = CHRI (8) THEN RI = 'l»" 4 BL 
K LEN (CLKC)) - 1): GOSUB 2040: INVERSE : VTAB 3: HTAB 
12: PRINT CLKC);: NORMAL : GOTO 670 
810 IF Al < > CHRI (13) THEN PRINT CHRI (7);: GOTO 790 
820 D(R.C) = VAL (Bl) / 100: RETURN 
830 GOTO 680 

840 VTAB 4 4 R; HTAB 11 4 LEN (CLKC)): GET Al 

850 IF Al = CHRI (13) THEN D(R.C) = VAL (BI):BI = Bl 4 ■ 

8 GOSUB 2040: RETURN 
860 IF Al = CHRI (83) THEN RETURN 
870 IF Al = CHRI (67) THEN Bl = 4 BLK LEN (CLKC)) - 

1): GOSUB 2040: INVERSE : VTAB 3: HTAB 12: PRINT CLKC) 

; : NORMAL : GOTO 670 

880 IF Al = CHRI (8) THEN Bl = "#' 4 BLK LEN (CLKC)) * 1 
): GOSUB 2040: INVERSE : VTAB 3: HTAB 12: PRINT CLKC); 

: NORMAL : GOTO 670 
890 IF Al = CHRI (81) THEN RETURN 
900 IF ASC (Al) < 48 OR ASC (Al) > 57 THEN PRINT CHRI ( 

7);: GOTO 840 

910 Bl = Bl 4 Al: GOSUB 2040: INVERSE : VTAB 3: HTAB 12: PRINT 
CLKC);: NORMAL 

920 IF LEN (Bl) = LEN (CLKC)) - 1 THEN PRINT CHRI (7); 

: GOTO 670 

930 VTAB 4 4 R; HTAB 11 4 LEN (CLKC)): GET Al 
940 IF Al = CHRI (13) THEN D(R,C) = VAL (Bl) / 10:BI = Bl 
4 8 ': GOSUB 2040: RETURN 
950 IF Al = CHRI (83) THEN RETURN 
960 IF Al = CHRI (67) THEN Bl = 4 BLK LEN (CLKC)) - 

1): GOSUB 2040: INVERSE : VTAB 3: HTAB 12: PRINT CLKC) 

; : NORMAL : GOTO 670 

970 IF Al = CHRI (8) THEN Bl = '«' 4 BLK LEN (CLKC)) - 1 
): GOSUB 2040: INVERSE : VTAB 3: HTAB 12: PRINT CLKC); 

: NORMAL : GOTO 670 
980 IF Al = CHRI (81) THEN RETURN 
990 IF ASC (Al) < 48 OR ASC (Al) ) 57 THEN PRINT CHRI ( 

7);: GOTO 930 

1000 Bl = Bl 4 Al: GOSUB 2040: INVERSE : VTAB 3: HTAB 12: PRINT 
CLKC);: NORMAL 
1010 D(R,C) = 'VAL (Bl) / 100 
1020 VTAB 4 4 R; HTAB 11 4 LEN (CLKC)): GET Al 
1030 IF Al = CHRI (67) OR Al = CHRI (8) THEN Bl = '#' 4 B 
LK LEN (CLKC)) - 1): GOSUB 2040: INVERSE : VTAB 3: HTAB 
12: PRINT CLKC);: NORMAL : GOTO 670 
1040 IF Al < > CHRI (13) THEN PRINT CHRI (7);: GOTO 102 
0 

1050 RETURN 

1060 REM — SALVA IL FILE — 

1070 TEXT : HOME :MDI = " 

1080 PRINT "INSERITE IL DISCHETTO SUL QUALE VOLETE SALVARE 
I DATI " 

1100 PRINT : INPUT 'DATE IL NOME AL FILE ->';MDI 

Continua 
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C STIPENDIO AFFITTO UESTIflBIO DITTO BOTO UBBIE SALDI 


gennaio 

! 

t000000 

200000 

100000 

100000 

100000 

100000 

400000 

febbraio 

* 

1000000 


100000 

100000 

100000 

100000 

600000 

marzo 

* 

1000000 


100000 

100000 

100000 

100000 

600000 

aprile 

! 

1000000 

200000 

100000 

100000 

100000 

100000 

400000 

maggio 

* 

1000000 


100000 

100000 

100000 

100000 

600000 

giugno 

! 

1000000 


100000 

100000 

100000 

200000 

500000 












L i n , , 

L 






TOTALI 


6000000 

400000 

600000 

o 

§ 

O 

o 

o 

600000 

600000 

290000G 


Figura 4. Questo è il risultato finale: nella colonna dei saldi abbiamo quanti 
soldi rimangono dello stipendio al netto delle spese, mentre nella riga dei 
totali il computer ha calcolato le entrate e le uscite del semestre, voce per 
voce. 


gelare parte del display e di esaminar¬ 
ne nel contempo un’altra parte. Se si 
preme il tasto + apparirà sopra il di¬ 
splay un asterisco. Questo asterisco 
può essere posizionato usando i tasti + 
e -. Tutto ciò che è visualizzato alla 
sinistra deH’asterisco sarà congelato 
sul display. Qualunque cosa si trovi 
sulla destra può essere scrollata usan¬ 
do le frecce. Ciò è particolarmente uti¬ 
le se si vogliono guardare simultanea¬ 
mente due colonne che normalmente 
non sono adiacenti. 

Altre possibilità 

A questo punto abbiamo a disposi¬ 
zione varie opzioni. Premendo C pos¬ 
siamo cambiare qualsiasi dato intro¬ 
dotto. Premendo Q si mette fine al 
programma, mentre premendo P si 
può fare la stampa su carta. Per stam¬ 
pare si devono introdurre i numeri del¬ 
la prima e dell’ultima colonna e della 
prima e dell’ultima riga che si vogliono 
stampare. L’ultima opzione, che viene 
scelta premendo S, permette di salva¬ 
re, col nome che si vuole, tutti i dati 
che sono stati introdotti e calcolati. In 
seguito si potrà richiamarlo dalla me¬ 
moria del dischetto per rielaborare i 
dati o aggiungerne di nuovi. 

Può richiedere un po’ di tempo e di 
pianificazione allestire il proprio mo¬ 
dello personale di calcolo elettronico 
utilizzando Microcalc, ma ne vale la 
pena. Si avrà un programma tagliato 
su misura per le proprie necessità, che 
può essere salvato, stampato e modifi¬ 
cato. Dato che il foglio elettronico che 
si crea con Microcalc è in grado di 
funzionare in modo autonomo, Micro¬ 
calc può essere usato per creare nuovi 
fogli elettronici. 

Come si copia Microcalc 

Per usare Microcalc è necessario di¬ 
gitare i cinque programmi presentati 
nell’articolo (due in linguaggio mac¬ 
china e tre in Applesoft-Basic). E’ 
molto importante salvare i cinque pro¬ 
grammi sullo stesso dischetto. Se siete 
alle prime armi, andate prima a leg¬ 
gervi con attenzione le pagine Per chi 
comincia , nelle quali troverete chiari 
e utili consigli su come si eseguono 
alcune fondamentali operazioni. 

Per prima cosa andate in monitor 
con CALL-151 e copiate il programma 
DISPLAYER. Salvate il programma 
con BSAVE DISPLAYER,A- 
$7F00,L$ED. 

Copiate poi il programma CLEA- 
RER e salvatelo con BSAVE CLEA- 
RER, A$7F00, L$4 A. 


A questo punto potete copiare il 
programma in Applesoft-Basic Micro¬ 
calc, salvarlo su dischetto, e poi copia¬ 
re e salvare Microcalc.il e il program¬ 
ma Scratch-pad. Dopo di ciò basterà 
fare RUN MICRO-CALC. 

Come funziona 

Microcalc è composto di cinque pro¬ 
grammi separati: due programmi in 
linguaggio macchina e tre programmi 
in Applesoft-Basic. Quando Micro¬ 
calc viene eseguito, la prima cosa che 
fa è di impostare HIMEM su 32510. 
Questo per proteggere le informazioni 
che saranno immagazzinate in memo¬ 
ria. Poi viene eseguito il breve pro¬ 
gramma in linguaggio macchina 
CLEARER. Questo programma puli¬ 
sce la sezione di memoria da $8000 a 
$94FF scrivendo spazi vuoti a ogni lo¬ 
cazione. Il Microcalc continua chie¬ 
dendo di introdurre il formato del mo¬ 
dello desiderato. Queste informazioni 
sono disposte in una serie di stringhe, 
una per ciascuna riga. Queste stringhe 
sono allestite in modo che siano tutte 
della stessa lunghezza. Poi ogni stringa 
è scritta con POKE direttamente in 
memoria, carattere per carattere. 
Questo procedimento permette una 
manipolazione delle informazioni più 
efficace di quella che si può ottenere 
con l’Applesoft. Ciò perché possiamo 
usare un altro programma in linguag¬ 
gio macchina, il DISPLAYER, per 
leggere sollecitamente una sezione 
della memoria e visualizzarla diretta- 
mente sullo schermo. Una volta verifi¬ 
cato che i dati in questa sezione sono 
esatti, essi vengono salvati su dischet¬ 
to come file binario.‘Questo procedi¬ 
mento è inoltre più rapido del salva¬ 
taggio delle informazioni come strin¬ 
ghe. 

Il resto delle informazioni che ab¬ 


biamo introdotto, come le formule e i 
nomi delle righe e delle colonne, viene 
memorizzato come stringhe. Queste 
stringhe sono però memorizzate come 
linee di programma in ogni modello di 
calcolo che viene creato. Le formule 
sono memorizzate in una sequenza 
specifica, di modo che i calcoli saranno 
fatti in un ordine predeterminato. Tut¬ 
te queste stringhe di programma, più 
una serie di comandi DOS, vengono 
salvati come file di testo WORKER. 
Poi questo file viene eseguito con 
EXEC dal programma Microcalc e: 1) 
il secondo programma in Applesoft, 
SCRATCH-PAD, viene caricato in 
memoria, 2) gli vengono aggiunte le 
nuove linee di programma, 3) il pro¬ 
gramma sosta per consentirci di inseri¬ 
re il dischetto sul quale vogliamo sal¬ 
vare il programma, 4) salva il pro¬ 
gramma con il nome che abbiamo scel¬ 
to, e 5) esegue il programma che ab¬ 
biamo appena cstruito e salvato. 

Possibilità di modifica 

Microcalc è un programma compli¬ 
cato, in special modo perché si tratta 
in realtà di cinque programmi in uno. 
Comunque è possibile modificarlo per 
renderlo ancora più rispondente alle 
proprie esigenze ersonali. Operazione 
questa che può risultare facile o molto 
difficile a seconda del tipo di modifica 
che si vuole effettuare. Per esempio, 
l’aggiunta di altre colonne sarebbe re¬ 
lativamente facile, ma l’aggiunta di al¬ 
tre righe sarebbe davvero difficile. Se 
volete aggiungere altre colonne, assi¬ 
curatevi che la lunghezza totale (som¬ 
ma delle larghezze di colonna più con¬ 
fini) sia inferiore a 255 caratteri. Sa¬ 
rebbe anche facile combinare due o 
più colonne per formarne una molto 
larga. 

Un’utile caratteristica che non è sta- 
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Ilio IF LEN (MW) > 10 THEN PRINT : INVERSE : PRINT : PRINT 
1 USATE UN NOME DI 19 CARATTERI MASSIMO B : VTAB 4: HTAB 
ì: CALL - 868: GOTO 1100 

1120 PRINT ; PRINT CHRI <4) : B BSAVE E. " ;fW ;MDI ; CHRI (44); 

"A32768"; CHRI (44);‘L53?6" 

1130 POR R = 1 TO NR: FÓR C = 1 TO NC 
1140 IF D(R,C) < > 0 THEN 11=11+1 
1150 NEXT C: NEXT R 

1160 PRINT CHRI < 4) ; “OPEN ♦ NW: PRINT CHRI (4);" 

URITE D/jMtt ♦ MDI: PRINT II 
1170 FOR R = I TO NR: POR C = 1 TO NC 
1180 IF D(R f C) < ) 0 THEN PRINT R: PRINT C: PRINT D(R.C) 

1190 NEJ(T C: NEXT R: PRINT CHRI <4);"CLOSE D.'jNNI ♦ MDI: RETURN 
1200 REM — LOAD FILE — 

1210 NF = 0: TEXT : HOME :ND* = 11 

1220 VTAB 10: PRINT a SE VOLETE L'ELENCO DEI FILE": PRINT "D 
ISP0NI8ILI, PREMETE IL TASTO 'L' ";: GET Al: PRINT Al: IF 
Al < ) THEN 1260 

1230 HOME : VTAB 3: PRINT "INSERITE IL DISCHETTO CON I FILE 
DA CARICARE 1 : INPUT "PREMETE RETURN QUANDO SIETE P 
RONTI * ;AI: GOSUB 1370 
1240 REM NF = NESSUN FILE 
1250 IF NF = 1 THEN 2580 

1260 VTAB 24: HTAB 8: PRINT "('G' PER FINIRE) 1 ;: HTAB 1: VTAB 
19: PRINT : PRINT 
1270 IF AJ = ‘G* THEN 2580 

1290 PRINT : INPUT "BATTETE IL NOME DEL FILE -> a :MD* 

1300 IF LEN (MDI) > 10 THEN MDI = LEFTI (MDI,10) 

1310 IF NF = 1 THEN 2580 

1320 PRINT : PRINT CHRI (4); 1 BL0AD E.":f m 4 MDI 

1330 PRINT CHRI (4):"OPEN D.";WI 4 MDI: PRINT CHRI (4);" 

READ D.';WI 4 MOl: INPUT li 

1340 FOR I = 1 TO II: INPUT R: INPUT C: INPUT D(R,C): NEXT 

1350 PRINT CHRI (4):"CL0SE D.";MI 4 MDI: GOTO 2140 
1360 REM — FILE ERROR — 

1370 NF = 0: FOR 22 = 0 TO 10:A$<22) = "": NEXT 22 
1380 TEXT : HOME : PRINT : PRINT CHRI <4); 1 CATALOG 1 : INVERSE 
: PRINT "NON INTRODURRE ALCUN COMANDO 0 : NQRMAL 


1390 

IF 

PEEK (1031) 

= 

197 THEN I 

= 

1031:A 

= 

1: GOTO 1640 

1400 

IF 

PEEK (1159) 

= 

197 THEN I 

= 

1159 :A 

= 

2: GOTO 1640 

1410 

IF 

PEEK (1287) 

= 

197 THEN I 

= 

1287:A 

= 

3: GOTO 1640 

1420 

IF 

PEEK (1415) 

= 

197 T HEN I 

= 

1415:A 

= 

4: GOTO 1640 

1430 

IF 

PEEK (1543) 

= 

197 THEN I 

= 

1543:A 

= 

5: GOTO 1640 

1440 

IF 

PEEK (1671) 

= 

197 THEN I 

= 

1671:A 

= 

6: GOTO 1640 

1450 

IF 

PEEK (1799) 

= 

197 THEN I 

= 

1799:A 

= 

7: GOTO 1640 

1460 

IF 

PEEK (1927) 

= 

197 THEN I 

= 

1927:A 

= 

8: GOTO 1640 

1470 

IF 

PEEK (1071) 

= 

197 THEN 1 

= 

1071:A 

= 

9: GOTO 1640 

1480 

IF 

PEEK (1199) 

= 

197 THEN 1 

= 

1199 :A 

= 

10: GOTO 1640 

1490 

IF 

PEEK (1327) 

= 

197 THEN 1 

= 

1327:A 

= 

11: GOTO 1640 

1500 

IF 

PEEK (1455) 

= 

197 THEN I 

= 

1455:A 

= 

12: GOTO 1640 

1510 

IF 

PEEK (1583) 

= 

197 THEN I 

= 

1583:A 

= 

13: GOTO 1640 

1520 

IF 

PEEK (1711) 

= 

197 THEN I 

= 

1711:A 

= 

14: GOTO 1640 

1530 

IF 

PEEK (1839) 

= 

19? THEN 1 

= 

1839:A 

= 

15: GOTO 1640 

1540 

IF 

PEEK (1967) 

= 

197 THEN I 

= 

1967:A 

= 

16: GOTO 1640 

1550 

IF 

PEEK (1111) 

= 

197 THEN I 

= 

1111 :A 

= 

17; GOTO 1640 

1560 

IF 

PEEK (1239) 

= 

197 THEN I 

= 

1239:A 

= 

18: GOTO 1640 

1570 

IF 

PEEK (1367) 

= 

197 THEN I 

r 

1367:A 

= 

19: GOTO 1640 

1580 

IF 

PEEK (1495) 

= 

197 THEN I 

= 

1495:A 

= 

20: GOTO 1640 

1590 

IF 

PEEK (1623) 

= 

197 THEN 1 

= 

1623:A 

= 

21: GOTO 1640 

1600 

IF 

PEEK (1751) 

= 

19? THEN I 

= 

1751:A 

= 

22: GOTO 1640 

1610 

IF 

PEEK (1879) 

= 

197 THEN I 

= 

1879:A 

= 

23: GOTO 1640 

1620 

IF 

PEEK (2007) 

= 

19? THEN 1 

= 

2007 :A 

= 

24: GOTO 1640 


1630 A = 24 

1640 FOR J = 1 TO LEN <W$) 

1650 IF PEEK (1 4 J + 1) < > ( ASC ( MIDI 4 12 

8) THEN 1710 
1660 NEXT J 
1670 FOR J = 1 TO 10 

1680 AKN) = AKN) 4 CHRI (( PEEK (I 4 J ♦ LEN (IM) 4 D) 
- 128) 

1690 NEXT J 
1700 N = N 4 1 

1710 FOR J = 1 TO 2: NEXT J 
1720 IF A = 24 AND N = 0 THEN 1880 
1730 IF A = 24 THEN 1790 
1740 IF A > 12 THEN 1770 

1750 ON A GOTO 1400,1410,1420,1430,1440,1450,1460,1470,1480 
,1490,1500,1510 

1760 PRINT *A = 1 ;Aj" IN LINEA 1540 ?": END 
1770 A = A - 12: ON A GOTO 1520,1530,1540,1550,1560,1570,158 
0.1590,1600,1610,1620 
1780 GOTO 1880 

1790 HOME : PRINT "I FILE DISPONIBILI PER "jMtt;" SONO: 1 
1800 PRINT : INVERSE 
1810 FOR J = 0 TO N - 2 
1820 PRINT 


1830 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2120 

2130 

2140 

2150 


2160 

2170 


2180 


2190 

2200 

2230 

2220 


2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 


2350 

2360 

2379 

2380 
2390 
2400 
2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 


HTAB 10: PRINT A$(J); 

NEXT J 
PRINT 

NORMAL :NF = 0: RETURN 

HOME : IWERSE : VTAB 12: PRINT "NESSUN FILE DISPONIBI 
LE 1 : NORMAL 
NF = 1 

FOR J = 1 TO 4: PRINT CHRI (7): NEXT J: FOR J = 1 TO 
2000: NEXT J 
RETURN 

REM — ROUTINE VISUALIZZAZIONE FILE — 

LL = 1 

IF C = 1 THEN LL = 2: GOTO 1980 
FOR II = 0 TO C - 1 
LL = LL ^ LEN (CLKID) ♦ 1 
NEXT II 

POKE 3,LL: CALL 32512: RETURN 
Li = 1: IF C = 1 THEN LL = 2: RETURN 
FOR II = 0 TO C - 1:LL = LL ♦ LEN (CLKID) ♦ 1: NEXT 
II: RETURN 

REM — ROUTINE STAMPA RIGA — 

FOR I = 1 TO NR: HTAB 1 : VTAB 4 ♦ I: PRINT RO$(I);: 

NEXT I: RETURN 

REM — VISUALIZZAZIONE DATI ~ 

IF Bl = 11 THEN RETURN 
B = LEN (Bl) 

FOR J = 1 TO B:PP = 32768 ♦ (R * 256) ♦ LL 4 LEN (GLI 

(C)) - J 

IF S = 1 THEN POKE PP - ( LEN (CLKO) - 1),160 
POKE PP, ASC ( MIDI (Bl,l 4 B - J,D) 4 128 
CALL 32512: NEXT J: RETURN 
REM — CERCA LEA FORMULE ™ 

HOME : VTAB 12: HTAB 6: IMMERSE : PRINT 1 STO CALCOLA 
NDO LE FORMULE ": VTAB 13: HTAB 6: PRINT "PUÒ' RICHIE 
DERE DIVERSI MINUTI": NORMAL 
FOR K = 1 TO NR: FOR M = 1 TO NC 
ON M GOSUB 11100,11200,11300,11400,31500,11600,11700,1 
1800,11900,12000,12100,12200,12300,12400,12500,12600,12 

700.12800.12900.13000.13100 

FOR N = I TD NR: IF F(N,M) < > 0 THEN B = F(N,M):B = 
INT «B 4 .005000005) « 100):BI = STRI (B):D(N,M) = B 
/ 100 

NEXT N: NEXT M: NEXT K 
HOME : GOSUB 2010 
FOR M = 1 TO NC 

ON M GOSUB 11100,11200,11300,11400,11500,11600,11700,1 
1800,11900,12000,12100,12200,12300,12400,12500,12600,12 

700.12800.12900.13000.13100 

C _m 

FOR R = 1 TO NR: IF F(R,C) = 0 THEN 2310 
B = F(R,C):B = INT <(B ♦ .005000005) * 100):BI = STRI 
(B):F(R,C) = B / 100 

IF B > 1 * 10 4 ( LEN (CLKC)» - 1 THEN Bl = LEFTI ( 
"ERROR ", LEN (CLKC))) 

GOSUB 1930 

CI = BI:BI = LEFTI <" ", LEN (CLKC))): GOSUB 

2040:BI = C$ 

GOSUB 2050 
D(R,C) = F(R,C) 

NEXT R 
NEXT M 

REM — VISUALIZZA21ONE DATI — 

TEXT : HOME : VTAB 1: HTAB 14: INVERSE : PRINT "VISUAL 
IZZA FILE": FOR I = 1 TO NR: HTAB 1 : VTAB 4 + I: PRINT 
RO$<I);: NEXT I 

VTAB 2: HTAB 2: PRINT "<P)RINT (C)AMBIARE (S)ALVARE (E 
)NTER (Q)FINIRE 1 
NORMAL : POKE 4,0 

Y = 1: POKE 3 , Y : CALL 32512 
VTAB 1 : HTAB 41 : GET A$ 

VTAB 4: HTAB 1: CALL - 868 

I c A$ = CHR* (81) THEN HOME : END : REM "Q 1 
IF A* = CHR* (67) THEN GOSUB 510: GOSUB 2150: GOTO 2 
330: REM "C" 

IF Al = CHR$ (83) THEN GOSUB 1070: GOTO 2330: REM 
"S" 

IF A* = CHRI (69) THEN POKE 4,0: GOTO 2580: REM "E 

B 

IF A$ = CHRI (80) THEN 2670: REM "P" 

IF Al = CHRI (8) THEN Y = Y 4 10: IF Y ) 255 THEN Y = 

Y - 255 

IF Al = CHRI (21) THEN Y = Y - 10: IF Y < 0 THEN Y = 
255 4 Y 

IF Al = CHRI (60) THEN Y = Y 4 1 : IF Y > 255 THEN Y = 

Y - 255 

IF Al = CHRI (44) THEN Y = Y 4 1 : IF Y > 255 THEN Y = 

Y - 255 
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2490 IF Al = CHRI (46) THEN Y = Y - 1: 1F Y < 0 THEN Y = 2 
55 t Y 

2500 IF Al = CHRI (62) THEN Y = Y - 1 : IF Y < 0 THEN Y = 2 
55 4 Y 

2510 IF A* = CHRI (45) THEN STAR = STAR - h IF STAR < 0 THEN 
STAR = 0 

2520 IF Al = CHRI (43) THEN STAR = STAR ♦ 1: IF STAR > 2? THEN 
STAR = 27 

2530 IF A* = CHRI (59) THEN STAR = STAR ♦ 1: IF STAR > 27 THEN 
STAR = 27 

2540 IF STAR > 0 THEN /TAB 4: KTAB 11 ♦ STAR: INVERSE : PRINT 
CHRI (42);: NORMAL 

2550 IF Y ♦ STAR > 255 THEN POKE 3,Y + STAR - 255: POKE 4, 
STAR: CALL 32512: GOTO 2380 
2560 POKE 3.Y 4 STAR: POKE 4,STAR: CALL 32512 
2570 GOTO 2380 

2580 HOME : /TAB 4: HTAB 15: PRINT "ENTER DATI": VTAB 6: HTAB 
15: PRINT *1) UTENTE*: VTAB 7: HTAB 15: PRINT *2) PER R 
IGA 8 : /TAB 8: HTAB 15: PRINT *3) PER COLONNA": /TAB 9: HTAB 
15: PRINT *4) ORDINE CASUALE" 

2590 VTAB 10: HTAB 15: PRINT "5) CARICA IL FILE": /TAB 11: HTAB 
15: PRINT *9) FINE* 

2600 /TAB 13: HTAB 8: PRINT " ": /TAB 13: HTAB 8: 

1WERSE : PRINT "SCEGLI NORMAL : GET Al 
2610 IF Al = "Q" THEN 2140 
2620 A = /AL (Al): IF A < 1 OR A ) 5 THEN 2600 
2630 IF A = 5 THEN 1210 
2640 ON A GOSUB 230,320,410,500 
2650 GOTO 2140 

2660 REM — STAMPA SU CARTA — 

2670 TEX7 : HOME : /TAB 5: INPUT "ENTER NUMERO COLORA INIZ 
IALE ->";AI:S = 'UAL (Al): IF S < 1 OR S > NC THEN 2670 

2680 /TAB 6: CALL - 958: ‘/TAB 7: HTAB 1: INPUT "ENTER NUME 
RO COLQWA FINALE ->";AI:E = DAL (Al): IF E < S OR E > 

NC THEN 2680 

2690 /TAB 8: CALL - 958: /TAB 9: HTAB 1: PRINT "ENTER NUME 


RO ":: INVERSE : PRINT "RIGA*:: NORMAL : INPUT " INIZIA 
LE -> 9 ;AI:SY = /AL (Al): IF SY < 1 OR SY ) NR THEN 269 
0 

2700 '/TAB 10: CALL - 958: '/TAB 11: HTAB 1: PRINT "ENTER NU 
MERO INVERSE : PRINT "RIGA";: NORMAL : INPUT " FIN* 
LE ->";AI:EY = '/AL (Al): IF EY < SY OR EY ) NR THEN 27 


2710 SX = S:EX = E: HOME : '/TAB 5: PRINT "NUMERO COLONI INI 
ZIALE = ";SX: PRINT : PRINT "NUMERO COLONNA FINALE = ": 

EX: PRINT : PRINT : PRINT "NUMERO ";: IWERSE : PRINT 1 
RIGA":: NORMAL : PRINT 6 INIZIALE = ":SY 
2720 oRINt : PRINT "NUMERO IN/ERSE : PRINT "RIGA";: NORMAL 
: PRINT " FINALE = ":EY 

2730 /TAB 14: CALL - 958: /TAB 14: HTAB 1: PRINT " /A BENE 
9R ; : GET Al: PRINT Al: IF Al < > "S" THEN 2330 
2740 P RÌNT : PRINT CHRI <4);"PR#1" 

2750 TS = SX 

2760 TE = TS - 1:LL = 0: FOR I = TS TO EX 
2770 IF TE < > I - 1 THEN 2790 

2780 IF LL 4 LEN (CLKD) < 60 THEN LL = LL + 1 4 LEN (CL 

l(I)):TE = I 
2790 NEXT I 

2800 PRINT 9 ";:TC = 0: GOSUB 2850: PRINT 

2810 PRINT " ":: FOR I = 1 TO LL 4 1 : PRINT CHRI 

(61);: NEXT I: PRINT 

2820 POR TC = SY TO EY: PRINT ROI(TC); : GOSUB 2850: PRINT : 

NEXT TC 

2830 IF TE ) = EX THEN PRINT : PRINT CHRI (4);"PR#0": HOME 
: GOTO 2330 

2840 TS = TE 4 1 ; PRINT : GOTO 2760 

2850 TL = - 1 : FOR K = 0 TO TS - 1 :TL = TL 4 1 4 LEN (CLK 

K)): NEXT K 

2860 TT = 32769 4 (TC * 256) 4 TL 
2870 FOR J = TT TO TT 4 LL 

2880 IF PEEK (J) = 186 THEN PRINT CHRI (124);: NEXT J: RETURN 


2890 PRINT CHRI ( PEEK <J) - 128) ; : NEXT J: RETURN 


ta inclusa in questo programma sareb¬ 
be la possibilità di tracciare i dati intro¬ 
dotti o farne un grafico. Lo si potrebbe 
fare con un programma separato, e 
non richiederebbe la modifica del pro¬ 
gramma di contabilità del’utente. 
Quando si salva un file con il proprio 
programma di tenuta dei conti, tutti i 
dati che sono stati introdotti più tutti i 
dati che sono stati calcolati vengono 
salvati su un dischetto nel file di testo 
D.(nome del programma)(nome scel¬ 
to). Esaminate i numeri di linea da 
1210 a 1350 dello SCRATCH-PAD 
per vedere come leggere queste infor¬ 
mazioni. 

Gestione dei dati 

Microcalc impiega un metodo esclu¬ 
sivo, e utile, per la gestione dei dati. 
La maggior parte dei dati da visualiz¬ 
zare sullo schermo viene scritta diret¬ 
tamente con POKE in una fascia di 
memoria. Una volta che questo è fatto 
ci sono due modi per recuperare le 
informazioni. Si può o usare il BASIC 
per guardare con PEEK in ogni loca¬ 
zione di memoria e leggere che cosa vi 
sia memorizzato, o usare un program¬ 
ma in linguaggio macchina per leggere 
i dati. E’ appunto quello che fa il pro¬ 
gramma in linguaggio macchina DI- 
SPLAYER. Quel che avviene è che le 
locazioni di memoria sono lette e poi 
immagazzinate in nuove locazioni di 


memoria. Il trucco è in questo caso che 
le nuove locazioni di memoria sono in 
realtà le locazioni nelle quali è memo¬ 
rizzato il display dello schermo. In al¬ 
tre parole, se si mette un carattere in 
una di queste locazioni, esso sarà auto¬ 
maticamente visualizzato sullo scher¬ 
mo senza l’impiego di un comando 
print. E’ una cosa splendida per la vi¬ 
sualizzazione delle informazioni, a 
parte tre cose. La prima è che lo scher¬ 
mo è largo solo 40 caratteri, mentre in 
questo programma un file può essere 
lungo fino a 211 caratteri. La seconda 
è che i caratteri non sono memorizzati 
nei loro equivalenti ASCII. Ad esem¬ 
pio, per visualizzare una "A" si deve 
immagazzinare in memoria 193($C1), 
non 65($41), il normale valore ASCII 
per "A". Il terzo problema è che si deve 
determinare un punto di partenza per 
vedere il file. Questo punto di parten¬ 
za viene calcolato in Applesoft e poi 
scritto con POKE nella locazione di 
memoria $03. Anche la locazione $04 
è importante se si sta visualizzando 
sullo schermo un file diviso in due. 
Essa indica il punto dello schermo nel 
quale il display sarà "congelato". La 
locazione $03 viene letta dal DISPLA- 
YER, e viene eseguito 29 volte (o me¬ 
no a seconda del valorè in $04) un loop 
che legge una locazione di memoria e 
poi memorizza il valore lì trovato nella 
corrispodente locazione da visualizza¬ 
re. Se si esamina il listato del DI- 


SPLAYER può sembrare che non se¬ 
gua un ordine logico. Questo perché le 
locazioni di visualizzazione sullo 
schermo sono memorizzate in modo 
intercalato, vale a dire la linea seguen¬ 
te sullo schermo non è la locazione di 
memoria seguente. 

Pulizia della memoria 

Un altro trucco utilizzato nel Micro¬ 
calc è quello di pulire la memoria che 
si userà prima di leggervi o scrivervi 
informazioni. Lo si ottiene con il pro¬ 
gramma in linguaggio macchina 
CLEARER. Il programma pulisce 
una sezione di memoria da $8000 a 
$94FF scrivendo il carattere equiva¬ 
lente di spazio ($AO) in ciascuna loca¬ 
zione di memoria. Anche questo viene 
compiuto con un loop, e usa un nume¬ 
ro minimo di comandi. In effetti en¬ 
trambi questi programmi in linguaggio 
macchina sono semplici, ma fuzionano 
molto bene. L’immagazzinamento di¬ 
retto in memoria è un trucco molto 
utile, e potrebbe essere applicato a 
qualsiasi programma che utilizzi vaste 
quantità di informazioni delle quali 
occorra la visualizzazione. 


Questo programma è disponibile su di¬ 
schetto, insieme con altri programmi. 
L’elenco, i prezzi e le modalità d’ordine 
sono riportati nell’ultima pagina di Ap¬ 
plicando, nella rubrica Disk Service. 

-¥ 

® 1985 by Nibble e Applicando 
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a ppMcando 

si trova anche qui 

Ecco un elenco dei computer shop presso i quali è possibile abbonarsi ad Applicando, 
acquistare una copia, cercare un numero arretrato... 


LOMBARDIA 


Almé (BG) 

Elcod Viale Italia 45/A 
Assago(MI) 

Basic Computers Centro Commerciale 
Milano Fiori 

Bergamo 

Studio 15 srl Via Quarenghi 60 

Il mondo deU’informatica Via Pitentino 8 

Brescia 

Alfa computer Via Bassi 26 
Brescia Computers srl Via Malta 12 
Il Computer srl Via B Croce 23 
L'Informatica srl Piazza Vescovado 1 
Personal Data di Tamiozzo D. 

Via Brozzoni 4 

Como 

D.S.I. srl Via DottesioS 
Como-Albate 
Accaesse Informatica srl 
Via Acquanera 46 

Lecco (CO) 

Computers Lecco snc Via N. Bixiol8/B 
Datamation Via Turati 10 
Lissone (MI) 

Computerlandia-Polli 
Via Martiri Libertà 103 

Milano 

A.G.Informatica srl Via G.Silva 49 
Communications Engineering 
Piazza Firenze 4 
Deltron srl Viale Gran Sasso 50 
Edelektron srl Corso Sempione 39 
Esprit Via Bergamini 13 
Happy System Piazza Diaz 6 


All'Informatica Shop Via Lazzaretto 2 
Macan sas Via Broletto 39 
Microtech Sistemi Via Bronzetti 20 
SH Computers srl viale Montenero 33 
Softec Computer Viale E. Jenner 23 
Monza (MI) 

ESI srl Via Cavallotti 11 
Nikom Electronics Via Asiago 7 
Pavia 

M. A. S. H. Computer Systems Strada 
Nuova 86 

Senna Gianfranco snc via Calchi 5 
Trezzano sul naviglio (MI) 

Personal computer shop Via L.da Vinci 36 
Segrate (MI) 

Compusoft di R. Massaroli 
Via Milano 2 - Resid. Lago 

Varese 

IRPE srl Via Morazzone 8 

LAZIO 


Roma 

Computer Center srl Via Nizza 48/52 
Computerart srl Via Michele di Landò 41 
Computime srl Via Cola di Rienzo 28 
Easy Byte Via Giovanni Villani 24 
E.D.P. Market Via E. Fermi 116/118 
E.M. EUR Micro Computer srl 
Viale C. Pavese 267 

5.1. G.E.E.I. srl Via Nomentana 265-273 

5.1. PR.EL. srl via Pompeo Magno 94 

Roma EUR 

Bit Computers Via F. Domiziano 10 

Roma Mostacciano 

Bit Computers Via Giovanni Gastaldi 33 


Viterbo 

Alfa Computer Via Palmanova 12/C 

VENETO 


Bassono del Grappa (VI) 

A Tre snc di Arcangeli e C. 

Via Buonarroti 23 

Canareggio (VE) 

Personal Computer di Mariconda 
Conegliano (TV) 

Computing Program di Branca 
Via G. Piovesana 32 

Mestre (VE) 

Pacinotti sas Via Torino 92 
Mirano (VE) 

Saving Elettronica di Miatto 
Via Gramsci 40 

Padova 

Capovilla e C. sas Galleria Scrovegni 5 
Computer Service srl Via Beethoven 3 
E.D.P. Sistemi srl Via Borromeo 16 
Treviso 

A5 Computers srl Borgo Cavour 37/A 
Venezia 

AZ Telemarket Cannaregio 5898 
Verona 

ARMU srl Via Teatro Filarmonico 3 
Esacomp srl Via Roveggia 43 
MOS 80 sas Via Germania 21 
Vicenza 

Sevi sas Via S. Agostino 87 
Villafranca (VR) 

Studio 4 Corso Vitt. Emanuele 70 
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PIEMONTE - VALLE D'AOSTA 

Aosta 

Informatique sas di Eddy Ottoz Av. 
Conseil des Commis 14 

Alba (CN) 

Centro computer Via Paruzza 2 
Biella (VC) 

Consul Computer srl Via delle Rose 2 
Informatica Biella sas Piazza S.Paolo 1/B 

Domodossola (NO) 

Nuova Elettronica Via Giovanni XXIII68 
Pinerolo (TO) 

Elaborazione Dati Pinerolo C.so Piave 42 

Torino 

A.B.Computer sas Corso Grosseto 209 
Digitalsync snc Corso Moncalieri 303 
Dimensione Personal Via Bertola 22/e 
GE.NE.CA. srl Via Bertola 5 
Hobby Elettronica Via Saluzzo 11/F-G-H 
Omicron Computers snc 
C.so Duca degli Abruzzi 14 
Pinto G.-Componenti elettr. 

Corso Principe Eugenio 15 bis 
Tecnosystem Computer Shop 
Via Beaumont 10 
Tekno Computers srl 
Via Madama Cristina 31/c 

TOSCANA 


Borgo a Buggiano (PT) 

CO-DI snc di G. Gatti-Chiti 
Via 24 Maggio 117/119 

Firenze 

Anfrel Informatica sas di F. Giagnoni e C. 

Via Masaccio 50 

Elettronica Cento Stelle srl 

Via Cento Stelle 5/B 

Paoletti Ferrerò Via il Prato 40/42 R 

Pascal Tripodo Elettronica 

Via B. della Gatta 26/28 

Soluzioni EDP srl Corso dei Tintori 39R 

Massa 

Euro Computer sas Piazza C. Bertagnini 4 

Piombino (LI) 

Centro Ufficio sdf Via F. Ferrer 37/39 
Pisa 

Società Elettronica Tirrena via Fucini 20 

Pistoia 

In ter Systems Via Pietro Mascagni 14 
Pistoia Frazione Margine 
CO-DI snc Via I Maggio 20/22 
Pontedera (PI) 

Data Port srl Via Brigate Partigiane 27 
T erranuova B. ni (AR) 

ICS srl Via Roma 10 


EMILIA ROMAGNA 


Bologna 

CEDA Minicomp srl Piazza Aldrovandi 2/2 
Computer Systems ViaErcolani 10/D 
EDP Sistemi BO srl 
Viale Pietramelara 61/F 
SERCOM Via B. da Carpi 9/B 
Cesena (FO) 

SHC snc Corso Cavour 157 
Ferrara 

Soc. Termomeccanica Via Garibaldi 195 
Mazzacurati Claudio V.le Cavour 186/188 
Tecnomeccanica Via Garibaldi 195 
Fidenza (PR) 

EMA-Elettronica Industriale 
Via Berenini 6 

Fiorenzuola d'Arda (PC) 

Centro Computer di Sacconi 
Corso Garibaldi 125/A 

Forlì 

A-Z Computer srl Via Cignani 7 
Kronos Via Oreste Regnoli 30 
Modena 

Masetti Elettronica srl 
Via Emilia Centro 211 

Reggio Emilia 

Computer Center srl Via D. Alighieri 4 
Esaprogetti Via F.Filzi 2 

Rimini 

Computer Line Via Coletti 61 
Scandiano (RE) 

Informatica System di Cheli Via Diaz 1 Ld 
Viserba di Rimini (FO) 

Computer Center Via Pallotta 25/A 

FRIULI VENEZIA GIULIA 


Pordenone 

Electronic Center snc Viale Libertà 79 
Turriaco (GO) 

Tecno Power Elettronica Via Marconi 19 
Udine 

BIT Computers Via Pozzuolo 107 
PS Elettronica sas Via Tavagnacco 89/91 


LIGURIA 


Genova 

Computer Center Via San Vincenzo 129 r 
SALS Informatica srl via D'Annunzio 2/35 
Lavagna (GE) 

CR2 Informatica snc Corso Genova 100 

La Spezia 

Softline srl Via Piave 19 

Continua 


mEmoR 


informatica srl 


v.Togliatti 4 56030 Perignono Pi 


Rivenditore e centro assistenza 
AUTORIZZATO 

f^appkz computer 

_. . .fin dal 1980 

HRRDHRRE : con garanzia 

Rpple. Tutta la gamma . 

. .a prezzi super-scontati, 
per iteri che e accessori.. 
un grande assortimento 
...ai prezzi piu' bassi. 
Super valutazione dell'usato 

SQFTURRE : con aggiornamenti 

SHC - Gestione servizi 
per comuni medio-piccoli, tributi, 
anagrafe,stato civile elettorale. 

SOR - Gestione Rziende 
ordini / produz / magazz /fatturaz. / 
pagamenti /statistiche /budget /iva 
contabilita’ generale e forfettaria. 


SPS - Gest. studi commerc. 
simulazione /pianificazione /analisi 
statistiche /grafica /archiviazione. 

gestione/or chiviaz. e stampa della 
modulistica fiscale ricorrente. 

SDT - Gest. studi tecnici 
oltre 70 pokoge per archiviare, 
progettare, calcolare, disegnare. 

SPP - Didattica e Insegn. 
oltre 20 pakage a libro elettronico 

SPC - Hobby Casa Gioch i 
oltre 100 dischi per animazione, 
outoopprendimento, grafica, quiz, 
sintetizzazione vocale, avventure. 


Condizioni particolari 

sono previste per gli operatori 
commerciali del settore 


Richiedere specifiche e prezzi per 
il settore interessato inviando lit. 
3.000 in francobolli o passandoci 
una ordinazione anche telefonica. 


Per dettagli tecnici urgenti : 
TELEFONARE allo 0587 - 616084 


MATERIALI FORNITI CON 
GARANZIA 

SODDISFATTI 0 RIMBORSATI 
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^NEW^ APPLE 

PERSONAL COMPUTER 48K • Compatibile APPLE II +, keipad numerico 
PORTCOM II ■ Elaboratore portatile 64K 2 FD, int. par+ser, CRT, comp. 
Apple II 

SCREENMASTER 80 ■ 8* colonne testo caompatibile CP/M 

PASCAL SPREAD SHEET BASIC 

DISK DRIVE • low cost SLIM LINE compatibile DOS 3.3 

DISK CONTROLLER CARD • Interfaccia per due drives 

DIGICODER • Scheda acquisizione per encoder ottici due canali 8 + 8 

DIGIT 

MUSICAL CARD ■ Sintetizzatore a tre voci con amplificatore stereo e 
speaker 

SPEECH CARD • Sintetizzatore vocale di fonemi preampl. + software 
MIDI W/SOFT & FUTURE SHOCK • Sistema polifonico sintetizzatore 
professionale 

DX1 SOUND SAMPLING SYSTEM • Sistema acquisizione suoni con soft¬ 
ware elaborazione 

PRINTER INTERFACE OKI - Low cost completa di cavo segnali 
SUPER PRINTMASTER III • Interfaccia per stampanti grafiche (specifi¬ 
care modello) 

64K BUFFER GRAPPLER W/CABLE • Buffer per stampante + interfaccia 
parallela 

IEEE 488 • Interfaccia per BUS GPIB 

MICRO BUFFER SER/PAR W/CABLE • Int. Par/Seriale bufferizzata con 
cavo segnali 

PARALLEL PORT • Interfaccia 24 PORTE TTL I/O con 8255 
SERIAL INTERFACE RS232 - Baud rate selezionabili compatibile CCS 7710 
ASYNCHR RS232 • Interfaccia seriale asincrona RS232/C baud rate 
50-19200 

XAD-1 - A/D converter 12 bit lOmS 4 canali + REAL TIME 
CLOCK + tampone 

XAD-2 - A/D converter 12 bit lOmS 2 canali fissi + 3 VARIABILE GAIN 
Il 04 - A/D converter 12 bit 8 canali VARIABILE GAIN 25 MicroSec/ciclo 
A/D D/A 12BIT 8 CHANNELS • A/D converter 20mS 8 canali 12bit + D/A 

1 canale 12 bit 

D/A CARD 16 BIT I/O PORT - D/A converter 16 bit 2 canali con I/O TTL 

2 canali 

A/D CARD 8 BIT 16 CHANNELS - A/D convcerter 16 canali 8 bit 0-5 V 
A/D D/A CARD 8 BIT 16 CHANNELS • A/D converter 8 bit 16 canali con 
D/A converter 

48KBytes CPU board • Scheda UNITÀ CENTRALE DI PROCESSO 
SWITCHING POWER SUPPLY - Alimentatore 220V 50Hz per APPLE II +le 
JOYSTICK - Doppio pulsante meccanica di precisione 
Scheda 16K RAM (PASCAL) 

Espansione 128KBytes RAM per APPLE 11 +le e compatibili 
TELERASTER • Digitalizzatore immagini video composito 256*256 64 livelli 
IMAGE PROCESSOR CARD - Digitalizzatore immagini video 16 livelli + 
software elabor. 

TV CAMERA W/Opticals 16mm - Composite-Video adatta a TELERASTER 
PAL COLOR CARD • Codificatore PAL per utilizzate video o TV 
RGB COLOR CARD - Decodificatore RGB per Apple li + e compatibili 
R.F. MODULATOR - Con deviatore per utilizzare come monitor un tele¬ 
visore 

REPLAY II - Per aprire dischetti protetti generando files DOS 3.3 
TIME II CARD • Reai time clock con batteria tampone 
I.C. TESTER CARD ■ Prova integrati serie TTL MOS RAM con software 
(TTL free) 

8748/8749 PROGRAMMEF, Programmatore Microprocessori con EPROM 
interna 

EPROM WRITER • programmatore EPROM 2708 • 2732 
PROGRAMMATORE WRITER HK128 - Programmatore EPROM 2716-27128 
con software 

LOBOT 1 ROBOT - Interf. APPLE con contr. infrarossi 
semovente + sofrware 

FOX 8088 - Espansione 16bit con processore 8088 e CP/M86 MS/DOS 
Z80 CARD • Scheda processore Z80 per compatibilità CP/M 
BUFFER 8K CENTRONICS - Buffer esterno per stampanti linea OKI pa¬ 
rallele 

HARDWARE PER MICR016 BIT COMP. IBM 

16 BIT PERSONAL COMPUTER • 8 slot 128-256K drives 360k+controller tastiera 
16 BIT PERSONAL COMPUTER XT • 128k RAM FD 360K + cont. HARO-DISK 
lOMBytes Keyboard 

A/D converter 25MicroSec/Ciclo D/A converter 12bit PC/XT 
Controller per 4 floppy DISK DRIVERS per IBM PC/XT 
Storage System per IBM PC/XT e compatibili 
Interfaccia parallela per stampante per PC/XT e comp. 

Interfaccia di comunicazione RS232 per PC/XT 
Reai time clock parallel pori Ram expander 
Reai time clock parallel pori Ram expander 256 K RAM 
COLOR GRAPHICS CARD • Interfaccia colore per IBM PC/XT e compatibili HI-RES 
MONOCHROME GRAPHICS CARD • HIGH-RESOLUTION GRAPHICS compatibi¬ 
le soft per PC/XT e comp. 

GREEN 12“ MONITORS - Composite video case plastico 

RGB COLOR MONITOR - Monitor a colori interfacciabile anche con APPLE II 

Plotter 6 penne 15 cm/sec FLAT TABLE form. A3 

STAMPANTI PER APPLE/IBM 

OKI ML 80 • 80 col. 80CPS. semigr.FRIZ.+PIN-FEED.interf.parallela 
OKI ML 82/A • 80 col. 120CPS. bidirez.graf.PIN-FEED+FRIZ.interf.parall + ser. 
OKI ML92 • 80 col. 160CPS GR. NLQ FRIZ.+PIN-FEED interf.parallela 
OKI ML 83 • 136 col. 120 CPS.FRIZ.+TRATTORE.GR. int. parallela + seriale 
OKI ML 93 • 136 col. 160 CPS.GR.NLQ.FRIZ.+TRATTORE, int. parallela 
OKI ML 84 - 136 col. 200 CPS. FRIZ. -+ TRATTORE.GR.NLQ.interf.parallela 
DATAPRODUCTS • 80 cd.180CPS.NLQ.GR.FRIZ+PIN-FEED.interf.parall + seriale 
GRAPHIC UPGRADE ML82/A 83/A ■ Set EPROM per upgrade GRAFICA su prin- 
ters ML82/A o ML83/A 

5= r^ir^rsispr^n® periferiche 
H Lr~^LsLi-J U UsLLd telecomunicazioni 

(10126) TORINO ■ VIA ORMEA, 99 • Tel. Oli /655.865 
CONDIZIONI PARTICOLARI PER DEALERS E HOBBISTI 


Sanremo (IM) 

A.E.S. Assemb. Elettr. S.Remo 
Via Volta 24 

Savona 

Briano snc Corso Tardy e Benech 20 r 

Sestri Ponente - Genova 

All Computer sas Via C. Menotti 136 r 

TRENTINO 


Trento 

SI GÈ. snc di Casagrande via C. Abba 2 

SICILIA 


Catania 

Centro Informatica sdì Via Firenze 211 
Computer Shop Via E. Orlando 164 
SI. EL Informatica snc via Etnea 289 
Messina 

Cubeta srl Via Cardines 12/14 
Milazzo (ME) 

Tectron Tecnologie Elet. srl 
Via dei Mille 

Palermo 

Informatica Commerciale spa 
Via Notarbartolo 26 

Ragusa 

Sosyco Corso V. Veneto 597 

Trapani 

Gualano Eugenio Via Virgilio 11 

MARCHE 


Jesi (AN) 

E.M.J. sas Via F. Conti 4 

New Computer srl Via N.Sauro 17/A 

Torrette di A ncona (AN) 

Sisteda srl via Velino 5 

CAMPANIA 


Barano d y Ischia (NA) 

Matterà Antonio Via Roma 61 
Benevento 

Masone Informatica Viale dei Rettori 57 
Napoli 

Computer Systems srl 

Via G. Santacroce 40 

Golden Computer srl Via Michelangelo 7 

I.C. International Computer 

Viale A. Gramsci, 176 

La Barbera Carlo sas Via Toledo 320 

Salerno 

Computer System Via E. Bottiglieri 19 
SEDA srl via Parmenide c/o Iannone 


CALABRIA 


Catanzaro 

Visicom srl Via Minniti Ippolito IO 
Cosenza 

Micro Systems sdf Via Pane Bianco 26 
Gioia Tauro (RC) 

Tecnocomp snc di Cutellé F.e R. 

Via Nazionale SS 111/117 

Spezzano A Ibanese (CS) 

Iannibelli Via Stragolia 48 

PUGLIA 


Bari 

L. e L. Computers srl Largo 2 Giugno 4 
Ciesse spa Via Re David 176/D 

Brindisi 

SIC srl Viale S.Giovanni Bosco 109 
Foggia 

GE.CO. srl Via Valentini V. Franco 1 
Leverano (LE) 

Liberano Elettronica 
ViaC.Salentina 19A/21 

Manduria(TA) 

De Pasquale Ottavio Via per Oria 80 
Nardo (LE) 

Salco srl Via XX Settembre 122 

BASILICATA 


M ater a 

Lucana Sistemi srl Via Don Minzoni 4 

ABRUZZO 


Avezzano(AQ) 

Aspron Via America 10/12 
Chieti 

Computer Point sas Viale Unità d’Italia 5 

L y Aquila 

S.E.A.D. srl viaG. di Vincenzo 

Lanciano (CH) 

Electronic Microsystems Via della Pace 3 

MOLISE 


Campobasso 
Informatica Molisana 
Via 24 Maggio 185/189 

UMBRIA 


Cerbara di città (PG) 

Computer Post Via Madonna del Vento 
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Art Portfolio 

Il programma o, meglio, libreria di disegni, contiene oltre 
120 disegni già fatti, eseguiti da artisti professionisti e suddi¬ 
visi in 12 categorie. Il suo impiego, in ufficio, a scuola o a 
casa, diventa ottimale se usato insieme con MacPaint o 
MacWrite per personalizzare lettere, relazioni, inviti, new¬ 
sletter, ecc. Il programma è corredato da un manuale di 150 
pagine che, oltre a fornire chiare istruzioni d’uso, riporta 
tutti i disegni disponibili e offre utili consigli per chi desidera 
creare da sé disegni nuovi. Costa 59.95 dollari. Axlon Ine., 
1287 Lawrence Station Road, Sunnyvale, California, 94089 
(tei. 408-747-1900). 


é .File Edit Goodies Font FontSize Style 



500 Menu Patterns for MacPaint 


Tutti i possessori di Macintosh conoscono i 38 fondini 
disponibili in MacPaint. Ebbene, questo programma ag¬ 
giunge altri 500 fondini, fornendo così una scelta davvero 
quasi illimitata. Costa 29.95 dollari. FingerTip Software, 
P.O. Box 4917, Long Beach, California 90804—0917 (tei. 
213-498-8064). 

MacProject 

Davvero utile nel pianificare tempi e risorse di qualunque 
progetto, dalla costruzione di una casa all’ideazione e realiz¬ 
zazione di una campagna pubblicitaria. Calcola automatica- 
mente e velocemente le date iniziali e finali, tenendo conto 
delle ore lavorative, dei giorni di festa e di tempi persi dovuti 
ad imprevisti. Segnala inoltre i momenti critici che potreb¬ 
bero far "saltare" la data finale per l’ultimazione del proget¬ 
to. Tiene conto delle risorse umane, dei costi, del cash—flow 
e ricalcola automaticamente ogni cosa non appena viene 
modificato qualche input. Anche per questo programma i 
vantaggi dovuti al mouse si fanno sentire notevolmente, e 
Fuso ne è facilitato e sono pure eliminati molti comandi che 
con un computer più tradizionale bisognerebbe mandare a 
memoria. Per collegare fasi di lavorazione che dipendono 
una dall’altra, per esempio, basta unirle con una linea che 



viene "tirata" col cursore per mezzo del mouse. Più semplice 
di così... I costi e il cash—flow sono calcolati per mezzo di 
uno Spreadsheet interno, ma se si vuole approfondire l’ana¬ 
lisi finanziaria è possibile, col cut & paste, trasferire dati in 
programmi di Spreadsheet come Multiplan. MacProject può 
essere usato in modo interattivo con programmi come Mac- 
Draw e MacWrite, per inserire, ad esempio, in una relazio¬ 
ne, lo stato di avanzamento lavori di un determinato proget¬ 
to, e così via. Costa 125 dollari. Apple Computer, Ine., 
20525 Mariani Avenue, Cupertino, California 95014 (tei. 
800-538-9696). 


Professional Composer 

Questo programma consente a musicisti, insegnanti e stu¬ 
denti di musica di ottenere ottimi spartiti musicali. Inoltre 
pemette a chi lo utilizza di comporre inserendo le note 
direttamente col mouse, di correggerle utilizzando menù già 
predisposti e di ascoltare la musica appena composta, per 
mezzo dell’altoparlante incorporato nel Macintosh oppure 
attraverso lo stereo di casa. Di facile uso, non ha comandi 
complessi da memorizzare o complesse procedure da segui¬ 
re. Costa 495 dollari. Mark of thè Unicom, 222 Third Street, 
Cambridge, Mass. 02142 (tei. 617-576-2760). 
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34170 GORIZIA - CORSO ITALIA, 149 TELEFONO 0481/30909 

Accessori p er 11 vostro Apple 


Solo per Apple Ile - espansione 64K + 80 colonne al prezzo 
eccezionale di Lire 220.000 

novità': 

Tastiera professionale _ 90 tasti * 50 comandi basic +12 

tasti funzione ♦ 10 tasti definibili da voi Lire 298 000 
Tavoletta grafica c ompleta di software: L. 235.000 
Tako - un click e potrete usare l'altra faccia del vostro dischetto: 
Lire 25.000 

auFFsa vm sTAmPArm 

Utilissimi per risparmiare tempo ed utilizzare al massimo il 
vostro computer Indispensabili per chi usa molto la 
stampante. Vi permettono di usare il computer mentre il Buffer 
manda alla stampante i dati che ha immagazzinato, 
nelle versioni: 

Alimentato dalla stampante - da Centronics a Centronics con 
capacita' di 8 K Lire 250.000 

Alimentato a 220 V - da Centronics a Centronics con capacita' 
di 16 K e comando di Reset Lire 315.000 
Come sopra ma con capacita’ di 32 K Lire 370.000 
Come sopra ma con capacita' di 64 K Lire 470.000 

Buffer da 64 k espandibile sino a 256 K ingresso seriale uscita 
Centronics Lire 680.000 

Stessa ma ingresso Centronics ed uscita seriale L 680 000 
Stessa ma ingresso seriale uscita seriale L. 730.000 

ACCSSSOSI VASI 

Disk Drive slim: L 450.000 

DOPP IO controller : L 100.000 

Z-80 p er CP/lTl: L. 118.000 

80 colonne ron soft switch: L. 220.000 

Super Serial Card con cavo di collegamento: L. 170.000 

Interfaccia Centronics per Epson - Tally - Star con grafica a 
sole Lire 118 000 

Scheda per far parlare la vostra mela con softw: L. 90 000 
Programmatore di EPROfTÌ (2716-2732-2764): L. 120 000 
Scheda Pai Color con suono: 95.000 

12 9 K RATO L 380.000 

Wild Card per Apple li plus e compatibili (per copiare tutti i 
programmi): L. 90.000 

Replay : la piu' potente scheda per copia per Apple II plus e 
compatibili L. 158.000 

■Joystick autocentranti: L. 42.000 

FLOPPY DISK 

In scatole da 10 pezzi tutti con anello di rinforzo: 

TIPO DASHUA mEITlOREX 3IT1-SCOTCH 

SF-SD L. 40.000 L. 50.000 L. 55.000 

DF-DD L. 58.000 L. 68.000 L. 68.000 

Kit 3m per la pulizia delle testine del vostro drive a L. 55.000 

SOFTWAU PER IJIAOUITOSH 

Chiedeteci la lista 1! 


Vendita per corrispondenza. Tutti i prezzi indicati 
comprendono 1TVA. nessuna spesa di spedizione per ordini 
superiori alle 50.000 Lire. Prezzi soggetti a variazioni 


VISITATE IL nOSTRO COmPUTER SHOP PER TROVARE LE 
ULTimE IÌOVITA' APPLE - GORIZIA - CORSO ITALIA 149 


Mcsnews 


é File Edìt Goodies Font FontSize Style 



l Images 

Ecco un’altra libreria di disegni già pronti, da usare come 
complemento a lettere, documenti, relazioni, ecc. Il pro¬ 
gramma contiene un indice che facilita la scelta del disegno 
adatto a ogni circostanza e può essere usato con MacPaint e 
MacWrite. Costa 45 dollari. Matrix Advocates Company, 
P.O. Box 1238, Bricktown, N.J. 08723 (tei. 
201-899-4739). 


é Edit Goodies Memos Int - Int 




COMPANY 


American Express 


Visa 


MasterCard 


- 


BANK 

Wells Fargo 

So Cai S&L 


Send postcards fro 

MocDialer Desk Clock 

Neil, Debbie, Robert, Bill, jamcs/J 
Shannon, Jo, Leah, Mark and Tai 


MacDesk 

Ideale per manager indaffaratissimi, MacDesk trasforma 
il Macintosh nella più perfetta delle segretarie, 24 ore su 24 e 
perfino durante Pintervallo di colazione. Incorpora una ru¬ 
brica dove archiviare nomi, indirizzi, numeri di telefono e 
un’agenda che si esaurirà non alla fine dell’anno ma da qui a 
135 anni. Inoltre è in grado di scrivere brevi testi compatibili 
con MacWrite e di stampare tutti gli appuntamenti del gior¬ 
no o dell’intera settimana. Con un solo colpo d’occhio il 
manager ha a portata di mano tutti gli impegni della settima¬ 
na, ma se vuole saperne di più, basta che faccia due volte 
click col mouse e comparirà un memorandum esplicativo 
che si celava dietro l’ora di un appuntamento legato a un 
nome o dietro uno dei numerosi impegni della giornata. 
Naturalmente MacDesk non trascura il o i conti correnti 
bancari e tiene buona nota dei saldi con l’ovvia pignola 
precisione del computer, né dimentica di fare lo stesso con le 
carte di credito. Inoltre, dopo cinque minuti che non viene 
usato, visualizza un orologio digitale che scompare automa¬ 
ticamente non appena si mette mano all tastiera o al mouse. 
Costa 149.95 dollari. Intermatrix, 5547 Satsuma Avenue, 
North Hollywood, California 91601 (tei. 818-509-5868). 


I 
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Mille programmi 


Stai per acquistare un personal 
computer Apple? 

Vorrai sapere che cosa puoi farci. 
Questo volume è un aiuto indispen¬ 
sabile, una guida ragionata e com¬ 
pleta di tutti i programmi disponibili 
in Italia. Prima di fare il tuo acquisto 
non puoi non consultarlo, perché 
solo se avrai a disposizione il pro¬ 
gramma o i programmi che ti inte¬ 
ressano la tua scelta non ti lascerà 
deluso. 


per te 


Hai appena acquistato un perso¬ 
nal computer Apple? 

Senza questa raccolta di program¬ 
mi non potrai mai sapere quali e 
quanti utilizzi potrai farne. 


Possiedi già da tempo un perso¬ 
nal computer Apple? 

Allora non c’è bisogno di dirti quan¬ 
to può essere prezioso questo libro: 
sai già che il tuo computer, senza 
programmi, è come un’auto senza 
benzina. E poiché non c’è limite alla 
fantasia e all’inventiva, consultando 
questa guida scoprirai utilizzi im¬ 
pensati per il tuo personal. Utilizzi 
che ti permetteranno nel lavoro, nel 
tempo libero, nel gioco o nello stu¬ 
dio, di essere sempre il più aggior¬ 
nato, il più organizzato, il più soddi¬ 
sfatto... 


Ordinale subito. 
Sarai fra i primi 
a riceverle. 


AP 12-13 

L____ 


Le Pagine del Software 
sono un supplemento 
semestrale di Applicando, 
il mensile per i personal 
computer Apple. 
Acquistarle singolarmente 
costa 12.000 lire. 

Per chi si abbona ad 
Applicando sono in regalo. 


COGNOME E NOME 
VIA 

CAP CITTA 

□ Allego assegno non trasferibile di L 

□ Allego ricevuta di versamento di L 
Corso Monforte 39. 20122 Milano 

□ Pago tin d'ora con la mia carta di credito Bankamericard N 

Data Firma 

□ Desidero fattura II mio C Fise Piva e 


N 

PROV 

v intestato a Editromca Srl 

sul CC postale N 19740208 intestato a Editrontca Srl 


scadenza 


Ritagliare, compilare e 
spedire a: Editronica Srl, 
Corso Monforte 39, 

20122 Milano. 


-Sx 


Desidero ricevere. senza aggravio di spese postali. Le Pagine del Software con la 
seguente formula (segnare la casella di proprio interesse) 

□ 12 000 lire per ricevere l'edizione Autunno 1984 de Le Pagine del Software 

□ 50 000 lire per ricevere 10 numeri di Applicando e in regalo l'edizione Autunno 1984 
de Le pagine del Software 





Le soluzioni 
non sono 
tutte uguali. 


P er il vostro pro¬ 
blema gestionale 
da noi troverete la 
soluzione APPLE 
e uomini pronti a 
collaborare con 
voi giorno 
dopogiorno. 



Corso Duca degli Abruzzi, 14 - 10128 Torino 
Tel. 011/535443 (3 linee) 


Rivenditore Autorizzato flKippkz computer 


é File Edit Search Letter Finance Utility 


iast Name iBiBTnprrrnóijDinEi^^ 

[in — ■ ■ Dr. Morris 


02:00pm 

12/19/84 

Jim Bob 

C 

Mold caps 

02:15pm 

12/19/84 

George Jones 

C 

Bi11$ Uife 

02:35pm 

12/19/84 

Harold Rbbott 

D 

Repeat 

03:00pm 

12/19/84 

Scott Turner 

C 

Get coupon 

03:15pm 

12/19/84 

Ursula Rndress 

C 

Xrau next uisit 

03:40pm 

12/19/84 

RIex Stuart 

C 

R.C.D. 

04:40pm 

12/19/84 

tleetinq uith Dr. Stuart 

R 

For rest of dau 

09:00am 

12/21/84 

Mary Henderson 

C 

Birthday 

09:25am 

12/21/84 

Jack Simon 

C 

SC discount 

09:45am 

12/21/84 

Turon Franklin 

D 

B.Y.G.B. 

10:10am 

12/21/84 

Scott Martin 

C 

80X Coverage 

10:30am 

12/21/84 

Marsha Skyualker 

C 

Neck pad 

10:45am 

12/21/84 

Jason McCormack 

c 

Patis cash 

li:15am 

12/21/84 

Jonathon Francis Rothchild II 

R 

Friend 

11:30am 

12/21/84 

Lynn Kim 

C 

Susan pays 

11:30pm 

12/21/84 

Susan Kim 

c 


02:00pm 

12/21/84 

Rbbott Marzen 

D 

Get Coupon 

02:05pm 

12/21/84 

Gordon Little 

C 

J.S.M. 

02:10pm 

12/21/84 

Georgia Hume 

C 

90X Coueraqe 

02:10pm 

12/21/84 

Brian Estrada 

NP 

Ruto aci^cjgnt^ 


MacHealth 


Sicuramente tra i più complessi e ambiziosi programmi 
finora realizzati per il Macintosh, MacHealth rappresenta 
un valido aiuto per studi medici di ogni categoria. Sono 
previsti quattro moduli, disponibili entro la fine del 1985. Il 
primo comprende il libro degli appuntamenti e dei paga¬ 
menti per le prestazioni. Il secondo organizza tutte le spese 
dello studio. Il terzo è dedicato alla gestione della corrispon¬ 
denza e alla stesura delle anamnesi mediche. Il quarto do¬ 
vrebbe provvedere alle esigenze di una contabilità integrata: 
stipendi del personale, entrate e uscite, Spreadsheet e altro 
ancora. Prezzo non comunicato. Cortland Software, 3231 
Rucker Avenue, Everett, Washington 98201 (tei. 
206-252-3127). 
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( Mail Merge ) 
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MOM: The Macintosh Office 
Manager 


Di uso professionale, MOM permette l’uso interattivo di 
un Word Processor, di uno Spreadsheet, di un data base, di 
un generatore di grafici e di un Mail Merge, cioè di un 
programma che può personalizzare lettere circolari. Uso 
interattivo significa in questo caso che i dati inseriti nello 
Spreadsheet possono essere caricati nel data base, che i dati 
del data base possono essere inseriti nel Word processor, e 
così via. Il programma è compatibile, per quanto riguarda i 
dati, anche con Multiplan. Costa 495 dollari. OmniSoft In- 
ternatioal, 4 Mary Lane, Melville, N.Y. 11747 (tei. 
516-367-8618). 
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MacManager 

Basato sui simulatori professionali che vengono impiegati 
nelle business school americane, questo programma mette 
di fronte chi lo usa a situazioni nelle quali bisogna prendere 
determinate decisioni. In base alle scelte che uno fa, si 
raggiunge il target, oppure si fallisce. L’utente si siede alla 
scrivania del boss (fornita di Macintosh, naturalmente) è lì è 
in grado di raggiungere tutte le informazioni che riguardano 
l’azienda che dirige. Può perfino leggere il MacTimes che lo 
tiene informato di cosa fanno i suoi concorrenti. Due sono i 
livelli di gioco: nel primo le decisioni prese influiscono im¬ 
mediatamene sui guadagni o sulle perdite della società; nel 
secondo, le decisioni possono avere conseguenze immediate 
o a medio e lungo termine. Possono competere da uno a 
nove giocatori tra loro o contro Mac, in un arco di tempo che 
va dai tre mesi agli otto anni di simulazion di gioco. Costa 
49.95 dollari. Harvard Associates, Ine., 260 Beacon Street, 
Somerville, Mass. 02143 (tei. 617-492-0660). 



MacVision 

Per mezzo di una telecamera o di una macchina fotografi¬ 
ca, è possibile inserire in Macintosh un’immagine realistica 
di qualunque oggetto si voglia, e poi intervenire in quest’im¬ 
magine modificandola a proprio piacimento con gli strumen¬ 
ti di MacPaint. Le immagini così ottenute possono essere 
archiviate su disco e richiamate al momento opportuno, 
oppure inserite in un altro documento. Costa 349.95 dollari. 
Koala Technologies Corp., 3100 Patrick Henry Drive, Santa 
Clara, California 95050 (tei. 800-562-2372). 
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1985 Projections 


BREAKEVtN QUANTITY GRAPH 


Total Income 
Line 



Profit Projector 
Breakeven Analysis 


Dovete essere in grado quotidianamente di rispondere a 
domande del tipo: "Quale prodotto permette un margine di 
guadagno più alto?"; oppure: "Quante possibilità ci sono di 
raggiungere il break even point?". Allora questo è il pro¬ 
gramma adatto a voi. Infatti Profit Projector/Breakeven 
Analysis ha lo scopo di fornire a dirigenti d’azienda e im¬ 
prenditori uno strumento per valutare situazioni e predi¬ 
sporre analisi adeguate che sono alla base di importanti 
decisioni. Innanzitutto il programma calcola i profitti e for¬ 
nisce all’utente un’ampia e dettagliata comparazione tra le 
varie categorie d’affari. Questo permette al manager di indi- 




, 


viduare aspetti negativi e positivi del business che deve 
valutare. In secondo luogo, il programma facilita il lavoro 
perché "suddivide" i fattori decisionali in tanti dati di fatto 
-rate d’interesse, condizioni di mercato, costi di produzio¬ 
ne, livello d’inflazione... - più facili da valutare. In questo 
contesto, analizza i costi correnti e quelli futuri per dar modo 
di valutare quale investimento privilegiare e quale strategia 
di mercato adottare. Infine, il programma aiuta a valutare le 
decisioni finanziarie perché offre l’analisi dettagliata del 
cash-flow, del budget di previsione e della situazioe debito¬ 
ria. Costa 65 dollari. Harris Technical Systems, 624 Peach 
Street, P.O. Box 80837, Lincoln, Nebraska 68501 (tei. 
402-476-2811). 


Electric Checkbook 


Un "libro di casa" elettronico, che permette la gestione su 
Mac di tutte le incombenze finanziarie legate al ménage 
famigliare, tra cui: pagamento delle fatture e delle spese 
varie, tenuta del o dei conti correnti bancari, analisi delle 
spese divise per categorie. Semplificato da tutte le sovra¬ 
strutture che necessariamente deve avere uno strumento di 
questo genere quando viene impiegato nella sfera aziendale, 
Electric Checkbook permette all’utente di concentrarsi sugli 
aspetti finanziari domestici e personali. Oltretutto non ha 
complessi codici da imparare a memoria o menù complicati 
da seguire. Il programma si basa "sui conti da pagare". In 
altre parole, mette in grado l’utente di programmare e regi¬ 
strare le spese, sia quelle "una tantum" sia quelle ricorrenti. 
Tiene nota di chi si deve pagare, quando e per che cosa. 
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Distribuisce le spese all’interno di categorie predetermina¬ 
te. Se un pagamento viene effettuato a mezzo assegno, 
automaticamente aggiorna il saldo del conto correhte. E così 
via. Il programma è corredato da un utile manuale scritto 
con chiarezza e di facile comprensione. Costa 79.95 dollari. 
State of Art, Ine., 3191 — C Airport Loop, Costa Mesa, 
California 92626 (tei. 714-850-0111). 

é file Edit Tasks Categories Bank flccounts Help 



MacLabeler 

Per chi deve archiviare su numerosi dischetti diversi file di 
dati, questo programma può rivelarsi davvero di grande 



utilità. Infatti legge i documenti, l’applicazione di apparte¬ 
nenza e il nome del dischetto e stampa il tutto su un’etichet¬ 
ta. Il programma viene fornito corredato di un pacchetto di 
etichette di facile applicazione ma anche di facile sostituzio¬ 
ne in caso di riutilizzo del dischetto o di aggiornamento dei 
file che esso contiene. Naturalmente queste etichette sono 
realizzate per essere convenientemente stampate con una 
Imagewriter. Inoltre il programma è in grado di presentare 
una directory dettagliata con nome del file, dimensione, 
genere, data di creazione, data di eventuale modifica, e può 
stampare il tutto su carta. Costa 49.95 dollari. Ideaform 
Ine., 908 East Briggs, Fairfield, Iowa 52556 (tei. 
515-472-9795). 



Meri K. Miller e Mary A Myers 
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Introduzione 
all'Apple Macintosh 





muzzio 

editore 


Se siete interessati a questo 
o altri ns. libri, compilate la 
cartolina e inviate a Franco 
Muzzio Editore - Servizio 
Mailing - via Makallè 73 - 
35138 Padova. 

□ desidero acquistare “Intro¬ 
duzione all’Apple Mac¬ 
intosh”. 

Pagherò al postino L. 18.000 
+ L. 1.000 di spese di spe¬ 
dizione. 

□ desidero ricevere il Vo¬ 
stro catalogo generale. 
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MAC club ITALIA 


§□ 


A tutti 1 lettori 


interessati al Macintosh 


A 


!□ 


E' nato il ITIfiC 1 * 1 * 1 ITALIA, il Macintosh users' Club italiano,con 

l'intento di riunire tutti i possessori e gli utilizzatori del Macintosh 
Apple. 

La prima riunione degli aderenti é auuenuta a Firenze il 9/12/84, e in 
tale sede é stato stabilito un abbozzo di organizzazione, che prevede 
una sede centrale a Firenze, con Presidente l'flrch. Giovanni Cianferoni, 
e tanti capizona quante saranno le zone di diffusione in Italia di tale 
apparecchiatura. La sede in Firenze é stata prescelta sia per la 
posizione geografica centrale, sia per l'alto grado di conoscenza della 
macchina già diffuso in tale zona. 

Ilerrà rilasciata una tessera, di cui riproduciamo l'immagine, che 
certificherà la vostra appartenenza al club. 

L'intento di questa associazione non é lucrativo, pertanto coloro che 
intendessero parteciparvi per scopi commerciali, escluso l'aspetto 
promozionale e pubblicitario, che fa parte delle informazioni sul 
sistema che il Mac Club si propone di diffondere, non saranno ammessi 
o immediatamente espulsi. 

Lo spirito che ci ha portati alla formazione di questa associazione é 
essenzialmente il desiderio di sapere di più su questo incredibile 
computer, di consigliare e di essere consigliati, di formare un 
patrimonio comune di programmi, esperienze e impieghi che possa 
essere portato a conoscenza di ogni socio con ogni mezzo, dalle 
circolari al modem, dal bollettino alla rivista "Applicando”. 

I possessori di un Mac possono contattare, per telefono o per posta, 
direttamente la sede di Firenze, in modo da permetterci di conoscere 
la reale consistenza locale, e di conseguenza, poter creare nuove 
zone. 

Le informazioni che vi chiediamo di fornirci per conoscerci meglio, 
sono riportate nel tagliando allegato (vi preghiamo di rispondere a 
tutte le domande). 


A 


□ 




<0 


SEDE CENTRALE C/O Presici. Arch. G. Cianferoni SEGRETERIA Tei. 055-36.87.30 


c> 
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Un budget 
che 

non sbaglia 

Vi piacerebbe uno strumento che permette di 
tenere sotto controllo tutte le spese e le entrate 
mensili? Non solo, ma che segnali 
immediatamente se state spendendo più di quanto 
avevate preventivato? Oppure, perché 
no, che vi segnali che le entrate sono superiori al 
previsto e quindi... 


E 9 vero. Si avverte in generale una 
ripresa economica in quest’Ita¬ 
lia che per lungo tempo ha fatto preoc¬ 
cupare gli economisti di tutto il mon¬ 
do. L’inflazione è scesa, e si aprono 
nuovi posti di lavoro grazie soprattut¬ 
to alle tecnologie emergenti. Ma si 
può fare anche di meglio. Soprattutto 
possono ottenere ancor più vantaggi 
coloro che non sono rimasti indietro, 
che hanno saputo, prima di altri, com¬ 
prendere le possibilità che offre il per¬ 
sonal computer. Ed è in questa chiave 
che vi presentiamo un modello di bud¬ 
get, ottenuto con Appleworks/Visi- 
Calc, che può essere utile a professio¬ 
nisti, dirigenti d’azienda e anche a chi 
deve "tenere i conti" in casa. 

Infatti, il controllo del flusso delle 
entrate e delle uscite è alla base di 
qualunque sana economia e permette 
risparmi che di per sé possono sembra¬ 
re insignificanti, ma che, sommati ad 
altri, costituiscono alla fine grosse ci¬ 
fre. Pensiamo, ad esempio, a un’a¬ 
zienda di 20 persone. Se ognuna di 
esse risparmiasse ogni giorno 10.000 
lire, alla fine dell’anno si otterrebbe 
un risparmio globale di ben 52 milioni. 
E per raggiungere un utile del genere 


Figura 1. Ecco come si presenta il 
modello del Budget, con 
evidenziate tutte le formule e le 
scritte fisse. 
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la stessa azienda, considerando un ri¬ 
carico del 15%, dovrebbe fatturare 
circa 400 milioni! 

Si capisce bene, quindi, che un’ocu¬ 
lata amministrazione, aziendale o fa¬ 
migliare che sia, può essere alla base di 
grandi risparmi e, di conseguenza, di 
maggiori utili. Per questo però occor¬ 
rono i giusti strumenti, come quello 
che vi presenta Applicando e che pos¬ 
sono costruirsi tutti coloro che hanno 
o il programma VisiCalc o il program¬ 
ma Appleworks. Nell’articolo indi¬ 
cheremo per comodità i comandi del- 
l’Appleworks, ma coloro che hanno 
VisiCalc potranno vedere facilmente, 
nel box riportato in queste stesse pagi¬ 
ne, quali sono i comandi che servono 
loro per costruire il modello. 

Come funziona 

Nelle dodici colonne a sinistra, una 
per ogni mese dell’anno, vengono in¬ 
seriti i dati relativi alle entrate e alle 
uscite di ogni mese. Nella colonna suc¬ 
cessiva, che viene ovviamente riempi¬ 
ta per prima, bisogna inserire i dati 
relativi alle previsioni di entrata e di 
uscita. A mano a mano che i dati men¬ 


sili vengono inseriti, automaticamente 
il modello calcola la media mensile 
preventiva e quella consuntiva. Calco¬ 
la inoltre, a consuntivo, il totale delle 
entrate e delle uscite mese per mese e 
annuali, dando infine il saldo, sempre 
annuo. 

Come si costruisce 

Dopo aver aperto un nuovo file di 
spreadsheet che chiamiamo Budget 
1985 (o qualsiasi nome ovviamente vo¬ 
gliate dargli) costruiamo il modello da 
sinistra a destra. La prima colonna è 
formata da tanti punti esclamativi che 
servono da delimitazione grafica. Po¬ 
sizionate il cursore nella prima casella 
in alto a sinistra (Al) e premete il tasto 
delle virgolette alte (") per entrare nel 
modo "Label" (Testo); potrete così in¬ 
serire nella prima casella le parole o i 
simboli che volete. Premete a questo 
punto il tasto contrassegnato dal pun¬ 
to esclamativo, seguito da RETURN. 
Premete contemporaneamente mela 
vuota e il tasto della d. Contempora¬ 
neamente non vuol dire che dovete 
ricorrere a contorcimenti delle dita e a 
tempismi da record per schiacciare nel 


medesimo istante i due tasti: premere 
semplicemente il tasto mela vuota e, 
tenendolo premuto, schiacciate a que¬ 
sto punto d. Attivate in questo modo 
l’opzione per duplicare una o più ca¬ 
selle. Il computer vi chiede: Interna¬ 
mente Su block notes Da block notes. 
Dovete rispondere Internamente , per¬ 
tanto assicuratevi che questa parola 
sia evidenziata dalla barra luminosa, 
altrimenti, usando le frecce destra o 
sinistra, evidenziatela voi, poi preme¬ 
te RETURN. Ecco che allora il com¬ 
puter vi chiede: Usa le frecce per evi¬ 
denziare Sorgente , poi premi Return 
Se avete eseguito alla lettera le istru¬ 
zioni date fin qui, il cursore deve esse¬ 
re già posizionato sulla vostra Sorgen¬ 
te, che sarebbe la casella o le caselle da 
duplicare, in questo caso Al conte¬ 
nente il punto esclamativo. Quindi 
premete semplicemente RETURN. A 
questo punto il computer dice: Sposta¬ 
ti alla nuova posizione e premi o 
Return. Voi dovete posizionarvi con il 
cursore in A2 e quindi premere RE¬ 
TURN. Ed ecco che in quest’ultima 
casella si sarà duplicato un secondo 
punto esclamativo, mentre il cursore si 
è di nuovo posizionato in Al. Natural- 


AGOSTO 


ENTRATE 


SSUM(P5...PII) 


USCITE 


SETTEMBRE 
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OTTOBRE 
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'ENTRATE 7 

(+AA11/12 

!§AVG(B11...Xll) 

(§SUM(B11...Xll) 
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mente sarebbe stato più semplice scri¬ 
vere ex novo il secondo punto escla¬ 
mativo, ma intanto abbiamo imparato 
il comando della duplicazione, che fra 
poco si rivelerà davvero utile. Usia¬ 
molo ancora, ma, quando il computer 
chiede di evidenziare Sorgente, fate 
attenzione: non premete subito RE¬ 
TURN. Prima usate la freccia in basso 
per evidenziare insieme le caselle Ale 
A2. Fatto? Adesso premete RE¬ 
TURN, poi spostatevi con il cursore in 
A3 e premete ancora RETURN. In 
A3 e A4 saranno duplicati i punti 
esclamativi di Al e A2. A questo pun¬ 
to sì il comando di duplicazione verrà 
utile. Infatti potete duplicare Al, A2, 
A3, A4 contemporaneamente in A5, 
A6, A7, A8. E poi tutte queste caselle 
nelle otto caselle successive, per un 
totale di 16 caselle riempite di punti 
esclamativi. Altre sedici caselle in una 
sola duplicazione e siete già arrivati a 
32 caselle. Duplicatene ancora 9 e arri¬ 
verete ai 41 punti esclamativi che ser¬ 
vono. 

Per sicurezza, ora salvate il lavoro 
eseguito fin qui, premendo contempo¬ 
raneamente mela vuota a. Ricordate¬ 
vi, mentre lavorate, di effettuare un 
salvataggio ogni 10 minuti, per evitare 
di perdere preziose ore di lavoro. 

Bisogna ora stabilire la larghezza 
della colonna. Poiché deve contenere 
solo il punto esclamativo, è sufficiente 
che sia larga appunto una lettera. Pre¬ 
mete contemporaneamente mela vuo¬ 
ta ed 1 per intervenire nel Layout. Il 
computer vi chiede: Singola cella Ri¬ 
ghe Colonne Blocco. Voi evidenziate 
Colonne. Poi il computer chiede: Usa 
le frecce per evidenziare colonne, poi 
premi Return. Significa che dovete evi¬ 
denziare tutte le colonne che volete 
allargare o restringere. Poiché dovete 
stringere la colonna A, basta sempli¬ 
cemente premere Return, perché il 
cursore si trova già in questa colonna. 
In questo modo viene evidenziata tut¬ 
ta la colonna, mentre il computer chie¬ 
de: Valore Label Protezione Dimen¬ 
sione colonne. Scegliete l’opzione Di¬ 
mensione colonne e premete Return. 
Il computer visualizza a questo punto 
la seguente scritta: Premi mela vuota 
freccia per cambiare la larghezza della 
colonna. Tenendo abbassato il tasto 
mela vuota, premete più volte il tasto 
freccia sinistra. Ogni volta che lo pre¬ 
merete, la colonna si restringerà di 
una battuta (come si allargherebbe di 
una battuta se premeste il tasto freccia 
destra). Premete quindi freccia sini¬ 
stra tanto quanto serve per ridurre la 
larghezza della colonna a una sola bat¬ 
tuta. 


!IN/OUT 

PREVENTIVO ! 

! ENTRATE 

i- - 

ENTRATE! 

! ENTRATE 1 

120.000.000! 

! ENTRATE 2 

15.000.000! 

! ENTRATE 3 

240.000.000! 

! ENTRATE 4 

180.000.000! 

! ENTRATE 5 

60.000.000! 

! ENTRATE 6 

120.000.000! 

! ENTRATE 7 
• 

30.000.000! 

_ _ i 

!T 0 T A L E 

i 

765.000.000' 

_ i 

! USCITE 

i- 

USCITE! 

! USCITE 1 

6.000.000! 

! USCITE 2 

72.000.000! 

! USCITE 3 

24.000.000! 

! USCITE 4 

120.000.000! 

! USCITE 5 

42.000.000* 

! USCITE 6 

900.000! 

! USCITE 7 

51.000.000! 

! USCITE 8 

3.000.000! 

•USCITE 9 

12.000.000' 

•USCITE 10 

42.000.000! 

! USCITE 11 

3.000.000' 

! USCITE 12 

12.000.000* 

.‘USCITE 13 

18.000.000! 

•USCITE 14 

12.000.000! 

! USCITE 15 

3.000.000* 

! USCITE 16 

42.000.000' 

! USCITE 17 

9.000.000! 

«USCITE 18 

72.000.000! 

! USCITE 19 

2.400.000' 

! USCITE 20 

15.000.000» 

! USCITE 21 
« 

3.000.000! 

< 

!T 0 T A L E 

i - 

564.300.000! 

{BILANCIO P.~> 

200.700.000' 


Figura 2. Una volta costruito il 
modello, bisogna per prima cosa 
inserirvi i dati preventivi relativi 
alte entrate e alle uscite. 


Si tratta ora di definire la seconda 
colonna, contraddistinta dalla lettera 
B. In B1 scriverete il nome del mese di 
GENNAIO. Non c’è bisogno, in que¬ 
sto caso, di premere prima il tasto del¬ 
le virgolette alte ("), in quanto il com¬ 
puter si posiziona da sé nel modo Te¬ 
sto. Affinché la parola GENNAIO ri¬ 
sulti centrata nella casella, ricorrete al 
Layout, sempre premendo mela vuota 
1. Le opzioni iniziali sono quelle che 
già conosciamo: Singola cella Righe 
Colonne Blocco. Anziché scegliere 


Colonne , come avete fatto poco fa per 
definire la larghezza della colonna A, 
scegliete l’opzione Singola cella , pre¬ 
mendo Return quando questa opzione 
sarà evidenziata dalla barra luminosa. 
Il computer allora chiederà: Valore 
Label Protezione. Scegliete Label. Al 
che la richiesta successiva sarà: Sini¬ 
stra Destra Centrata Standard. Sceglie¬ 
te centrata e immediatamente la scrit¬ 
ta GENNAIO si posizionerà al centro 
della colonna. 

In B2 invece bisogna ricorrere alle 
virgolette alte, perché dovete scrivere 
una casella di uguali (=) per rendere 
più elegante e funzionale il prospetto. 

In B3 scrivete ENTRATE e, sem¬ 
pre usando mela vuota 1, allineate la 
scritta a destra. In B4 avete ancora una 
riga di uguali. Da B5 a B11 lasciate le 
caselle bianche, in quanto inserirete in 
seguito, mensilmente, i dati relativi al 
vostro bilancio. B12 è invece una ca¬ 
sella piena di segni meno ripetuti 

(-)• In 

B13 dobbiamo mettere la prima for¬ 
mula, in modo che il nostro modello di 
bilancio calcoli automaticamente la 
somma delle entrate per il mese di 
GENNAIO. Assicuratevi di avere la 
tastiera posizionata in italiano e che il 
tasto SHIFT (maiuscolo fisso) non sia 
abbassato. Schiacciate il tasto contras- 
segnato dal segno di paragrafo (§). Il 
computer visualizzerà: § valore. Bat¬ 
tete in sequenza: SUM(B5.B11). 
Schiacciate infine il tasto Return. La 
formula si trasformerà automatica- 
mente in: SUM(B5...B11). Vuol dire 
che qualunque valore si trova nelle ca¬ 
selle B5, B6, B7, B8, B9, B10, Bll 
verrà sommato automaticamente e il 
risultato visualizzato nella casella B13. 
In B14 ancora una fila di segni meno. 
In B15 la scritta USCITE allineata a 
destra utilizzando il modo Layout 
(mela vuota 1). In B16 una fila di ugua¬ 
li. Da B17 a B37 lasciate le caselle in 
bianco: le riempirete dopo con i dati 
effettivi. Potete naturalmente lasciare 
un numero maggiore o minore di ca¬ 
selle bianche, a seconda delle vostre 
personali esigenze. 

In B38 una fila di segni meno e in 
B39 un’altra somma, relativa a tutte le 
caselle dove andranno riportate le 
uscite, per permettere al computer di 
calcolare automaticamente le uscite 
mensili. La procedura è quella appena 
vista: segno di paragrafo, poi la se¬ 
quenza SUM(B17.B37). Naturalmen¬ 
te, se avete lasciato un maggiore o un 
minor numero di caselle bianche, do¬ 
vrete variare in più o in meno B37, 
facendolo coincidere con l’ultima ca¬ 
sella che avete lasciato in bianco. In 
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1- 

AVG m. P.! 
-!- 

AVG m. C. ! 

---1- 

CONSUNTIVO ! 

SALDO A.+ - ! 

1 

1- 

ENTRATE! 
-|- 

ENTRATE! 

-|- 

ENTRATE! 

ENTRATE! 

1 

10000000! 

1.000.000! 

1.000.000! 

119.000.000! 

1 

1250000! 

2.000.000! 

2.000.000! 

13.000.000! 

1 

20000000! 

3.000.000! 

3.000.000! 

237.000.000! 

1 

15000000! 

5.000.000! 

5.000.000! 

175.000.000! 

1 

5000000! 

800.000! 

800.000! 

59.200.000! 

1 

10000000! 

10.000.000! 

10.000.000! 

110.000.000! 

1 

1 

2500000! 

« 

7.300.000! 

1 _ 

7.300.000! 

_ _ _ _ _ _1 _ 

22.700.000! 
___ | 

1 

1 

63750000 ! 

_ 1 _ 

2.425.000! 

1 _ 

29.100.000! 

1 . 

735.900.000! 

1 

1 

USCITE! 

USCITE! 

..--— 

USCITE! 

USCITE! 

1 

500000! 

383.333! 

1.150.000! 

4.850.000! 

i 

6000000! 

80.000.000* 

80.000.000! 

-8.000.000! 

1 

2000000! 

13.000.000! 

13.000.000! 

11.000.000! 

1 

10000000! 

120.000.000* 

120.000.000! 

0! 

1 

3500000! 

42.000.000! 

42.000.000! 

0! 

1 

75000! 

700.000! 

700.000! 

200.000! 

1 

4250000! 

51.000.000! 

51.000.000! 

0! 

1 

250000! 

3.000.000! 

3.000.000! 

0! 

1 

1000000! 

12.000.000* 

12.000.000! 

0! 

1 

3500000! 

50.000.000! 

50.000.000! 

-8.000.000! 

1 

250000! 

2.000.000! 

2.000.000! 

1.000.000! 

1 

1000000! 

10.000.000! 

10.000.000! 

2.000.000! 

\ 

1500000! 

19.000.000! 

19.000.000! 

-1.000.000! 

1 

1000000! 

10.000.000! 

10.000.000! 

2.000.000! 

1 

250000! 

2.000.000! 

2.000.000! 

1.000.000! 

1 

3500000! 

40.000.000! 

40.000.000! 

2.000.000! 

1 

750000! 

9.000.000! 

9.000.000! 

0! 

1 

6000000! 

76.000.000! 

76.000.000! 

-4.000.000! 

1 

200000 1 

2.300.000! 

2.300.000! 

100.000! 

« 

1250000! 

14.000.000! 

14.000.000! 

1.000.000! 

1 

i 

250000! 

2.000.000! 

2.000.000! 

1 

1.000.000! 

» 

1 

47025000! 

46.595.833! 
_ ... ■■■ 1- 

559.150.000! 

--1- 

5.150.000! 
--1 

! ************ ! ****************** ! ****************** ! ************* ! 


Figura 3. Il computer calcola 
automaticamente la media 
mensile preventiva e quella 
consuntiva. 


B40 una fila di segni uguale e in B41 
una fila di asterischi. La larghezza di 
questa seconda colonna (B) la lascia¬ 
mo standard, a meno che non vogliate 
aumentarla perché pensate di inserire 
numeri formati da oltre 10 cifre. In 
ogni caso, potete aumentare o dimi¬ 
nuire la larghezza di questa colonna 
anche in seguito, al momento in cui se 
ne presenti l’occasione. 

La terza colonna (C) è facilissima da 
preparare. Essendo formata da 41 
punti esclamativi è identica alla prima 
colonna (A), perciò basta usare l’op¬ 
zione "duplica" (mela vuota d), evi¬ 
denziare tutta la colonna A, poi spo¬ 
stare il cursore in CI, e il gioco è fatto. 
Abbiamo già visto in dettaglio come si 
fa proprio all’inizio dell’articolo. 

Procedete allo stesso modo con tut¬ 
te le altre colonne (mesi e punti escla¬ 
mativi). Fate attenzione però che per 
quanto riguarda la duplicazione delle 
colonne che riportano i mesi dell’anno 
(B, D, F, ecc.), queste hanno all’inter¬ 
no delle caselle che contengono for¬ 
mule, pertanto il computer visualizze¬ 
rà questa scritta: Nessuna modifica 
Relativo. Evidenziate sempre Relati¬ 
vo. In questo modo il computer non 
copia le formule esattamente come so¬ 
no, ma le adegua perché corrisponda¬ 
no alla colonna nella quale devono es¬ 
sere duplicate. Per esempio, la prima 
formula che abbiamo inserito in B13 
-SUM(B5...B11)— se duplicata nella 
colonna D, esattamente in D13, sce¬ 
gliendo l’opzione Relativo diventerà 
automaticamente SUM(D5...DII), 
mentre se avessimo scelto l’opzione 
Nessuna modifica sarebbe stata ripro¬ 
dotta uguale all’originale, con la con¬ 
seguenza che così non funzionerebbe. 
Dopo averle duplicate, dovrete cam¬ 
biare le scritte sostituendole con quel¬ 
le singole. Infatti vi sarete trovati con 
GENNAIO dappertutto, mentre ave¬ 
te bisogno dei nomi dei 12 mesi del¬ 
l’anno. Purtroppo per le scritte non 
esiste (né potrebbe esistere) una op¬ 
zione Relativo... 

E’ il momento ora di costruire la 
colonna contraddistinta dalla scritta 
IN/OUT. Poiché tutta la colonna è 
composta solo di testo, basterà copia¬ 
re casella per casella le scritte ripro¬ 
dotte nella Figura 1 , sostituendo a 
quelle generiche (ENTRATE 1, EN¬ 
TRATE 2...USCITE 1, USCITE 2, 
ecc.) le scritte che sono più funzionali 
a ciascuno di voi. L’ultima casella ri¬ 


porta BILANCIO P. , cioè bilancio 
preventivo: è l’utile calcolato sot¬ 
traendo le uscite dalle entrate. 

Nella colonna successiva ci sono 
scritte, caselle bianche che riempire¬ 
mo dopo, e formule. Procedete se¬ 
guendo le istruzioni fornite finora, 
poiché non si presenta alcun caso nuo¬ 
vo tranne che per la formula finale, 
quella del bilancio preventivo. Qui in¬ 
fatti dobbiamo sottrarre dalla somma 
delle entrate, contenuta nella casella 
AA13, la somma delle uscite, conte¬ 
nuta in AA39. Per entrare nel modo 


calcolo, non possiamo scrivere diretta- 
mente A A13—AA39, perché automa¬ 
ticamente il computer prenderebbe la 
nostra formula come testo, e allora 
dobbiamo, prima di tutto premere il 
tasto contrassegnato dal T: entriamo 
così in "formula", poi basta scrivere 
AA13-AA39. 

La colonna successiva è ancora for¬ 
mata da punti esclamativi. Quella do¬ 
po ancora è contraddistinta dalla scrit¬ 
ta AVG MM. P. AVG sta per AVE- 
RAGE, media; quindi media mensile 
preventiva. Infatti, se osservate le for- 
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mule, tutte le entrate e le uscite annue 
vengono singolarmente divise per 12, 
il che dà la media mensile delle entrate 
e delle uscite. Non ci soffermiamo più 
sulle colonne formate da punti escla¬ 
mativi, ormai è facile costruirle in un 
attimo con l’opzione duplica. La co¬ 
lonna contraddistinta da AVG MM. 
C. è relativa alla media mensile con¬ 
suntiva. Nel caso di questa colonna, le 
formule si ricavano seguendo le mede¬ 
sime istruzioni delle formule conte¬ 
nenti le somme, con l’unica variante 
che al posto di SUM dovete scrivere 
AVG. 

A questo punto, le ultime due co¬ 
lonne, contraddistinte dalle scritte 
CONSUNTIVO e SALDO A.+ - 
(saldo annuo), sono facili da ricopiare, 
in quanto richiedono solo comandi già 
visti. 

Che cosa offre 

Questo modello permette di tenere 
sotto controllo un budget annuo, voce 
per voce e mese per mese. Per prima 
cosa bisogna inserire i dati preventivi 
relativi alle entrate e alle uscite (figura 
2). Attenzione, però, poiché si tratta 
di un modello semplice in apparenza, 
ma complesso in realtà per le numero¬ 
se formule che esso contiene, è bene 


Figura 5. Aprendo un Titolo nella 
parte alta dello schermo, è 
possibile mantenere visibili le 
intestazioni per rendere più facile 
l’inserimento dei dati. 


ricorrere a un’opzione che permetta di 
rendere più veloci le operazioni. Pre¬ 
mete mela vuota v: il computer visua¬ 
lizza le seguenti possibilità: Valore La¬ 
bel Dimensione colonne Protezione 
Ricalcolo. Evidenziate Ricalcolo e 
premete Return. A questo punto il 
computer dirà: Automatico Manuale. 
Evidenziate Manuale e premete Re¬ 
turn. In questo modo tutti i calcoli non 
verranno eseguiti ogni volta che inseri¬ 
te un dato, bensì solo quando lo volete 


Figura 4. L’inserimento dei dati 
consuntivi avviene mese per 
mese. 


voi, cioè ogni volta che premete mela 
vuota k. Ricordate di far fare ogni vol¬ 
ta almeno 3 ricalcoli consecutivi, per 
essere sicuri che i risultati siano esatti. 

Come potete vedere dalla figura 3, 
automaticamente il computer calcola 
la media mensile preventiva e quella 
consuntiva. 

Ora si tratta di inserire i dati effetti¬ 
vi, mese per mese, delle entrate e delle 
uscite. Prima però organizziamo il vi¬ 
deo in modo da avere sottocchio tutto 
quanto ci serve. Posizionatevi con la 
colonna IN/OUT come prima colonna 
a sinistra del video e portate il cursore 
luminoso sulla scritta PREVENTI¬ 
VO. Premete mela vuota f ed entrate 
nell’opzione Finestra. Il computer 
chiede: Verticale Orizzontale. Eviden¬ 
ziate Verticale e premete Return. Pre¬ 
mete ancora mela vuota f e questa vol¬ 
ta il computer chiede: Una Sincroniz¬ 
zata. Evidenziate Sincronizzata e bat¬ 
tete Return. In questo modo, quando 
vi spostate in altre caselle, le due fine¬ 
stre del video risulteranno sincroniz¬ 
zate. Usando mela vuota e freccia sini¬ 
stra (che sposta un’intera videata a de¬ 
stra) fate comparire le colonne relati¬ 
ve a GENNAIO, FEBBRAIO e 
MARZO, come si può vedere nella 
figura 4, e cominciate a inserire qual¬ 
che dato di entrata relativo a questi 
mesi. Non preoccupatevi se sono dati 
fasulli, potrete sostituirli successiva- 
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mente con i dati reali del vostro bilan¬ 
cio. A mano a mano che vi spostate 
verso il basso, noterete che a un certo 
punto le scritte della prima riga 
IN/OUT PREVENTIVO GENNAIO 
FEBBRAIO MARZO scompariran¬ 
no. E’ difficile perciò capire quali dati 
stiamo inserendo, ma ricorrendo a 
un’altra possibilità che offre il pro¬ 
gramma, possiamo ovviare all’incon¬ 
veniente. Premete mela vuota f; po¬ 
trete scegliere fra: Una Non Sincroniz¬ 
zata. Scegliete Una e premete Return. 
Posizionate il cursore in A2 e premete 
mela vuota t. Il computer chiede: So¬ 
pra Parte Sinistra Ambedue. Eviden¬ 
ziate Sopra e premete Return. Tutta la 
prima riga, con le varie scritte, si sdop¬ 
pierà. Posizionate nuovamente la 
scritta IN/OUT all’estrema sinistra 
dello schermo e riutilizzate l’opzione 
Finestra, seguendo esattamente le 
istruzioni fornite qui sopra. Infine 


prendete a video GENNAIO, FEB¬ 
BRAIO e MARZO e portate il curso¬ 
re in basso, dopo la voce USCITE. 
Vedrete che le intestazioni in alto non 
scompaiono come prima e potete inse¬ 
rire i dati sapendo esattamente in quali 
caselle state intervenendo (figura 5). 

A questo punto il modello di Budget 
è completato: dovete solo inserire i 
dati reali al posto di quelli finora inse¬ 
riti per prova (figura 6). 

Stampa del Budget 

Poiché il budget è più largo di 80 
colonne, non è possibile stamparlo in 
un unico foglio, né sarebbe possibile 


Figura 6. A mano a mano che si 
raccolgono i dati, appare evidente 
l’efficacia di uno strumento come 
questo particolare tipo di budget, 
il cui aggiornamento è istantaneo. 


stamparlo in un’unica soluzione nem¬ 
meno possedendo una stampante da 
132 colonne. In ogni caso, conviene 
utilizzare il carattere più piccolo di¬ 
sponibile sulla stampante. Per questo, 
premete mela vuota p e vi si presente¬ 
rà lo schermo come in figura 7. Per la 
verità, non tutti i parametri di stampa 
risulteranno uguali a quelli indicati nel 
nostro esempio; vi consigliamo per¬ 
tanto di correggere i vostri. Se il vostro 
computer riporta CP: Car./Pollice 10 , 
battete CP Return 17 e, anziché 10 
lettere per pollice, la stampante ne 
scriverà 17, col risultato che, per ogni 
riga, anziché 80 lettere, potrete stam¬ 
parne 136, col grande vantaggio che 
sarete in grado di stampare pezzi più 
ampi di budget. 

Prima di stampare, decidete quali 
colonne del budget vi interessano 
maggiormente. Per esempio, se avete 
inserito i dati relativi ai primi tre mesi 



GENNAIO ! 

FEBBRAIO ! 

MARZO !. 

..! IN/OUT 

PREVENTIVO ! 

....1. 

AVG MI. P.! 

AVG m. C. ! 

—---—1 : 

CONSUNTIVO ' 

SALDO A.+ - 


ENTRATE' 

ENTRATE' 

ENTRATE'. 

..! ENTRATE 

ENTRATE' 

i. 

ENTRATE' 

i. 

ENTRATE' 

i. 

ENTRATE» 

i 

ENTRATE 


8.000.000' 

12.000.000* 

10.000.000'. 

..! ENTRATE 1 

120.000.000' 

10.000.000* 

10.000.000' 

30.000.000* 

90.000.000 


1.400.000' 

1.000.000' 

1.000.000'. 

..! ENTRATE 2 

15.000.000' 

1.250.000' 

1.133.333! 

3.400.000' 

11.600.000 


18.000.000' 

22.000.000' 

20.000.000*. 

..! ENTRATE 3 

240.000.000' 

20.000.000' 

20.000.000' 

60.000.000' 

180.000.000 


16.000.000! 

14.000.000* 

16.000.000'. 

..'ENTRATE 4 

180.000.000' 

15.000.000' 

15.333.333! 

46.000.000' 

134.000.000 


4.000.000' 

6.000.000* 

7.000.000'. 

.. ! ENTRATE 5 

60.000.000* 

5.000.000' 

5.666.667» 

17.000.000' 

43.000.000 


10.000.000' 

8.000.000* 

8.000.000'. 

..'ENTRATE 6 

120.000.000' 

10.000.000' 

8.666.667! 

26.000.000' 

94.000.000 


2.000.000' 

. _i. 

3.000.000* 

_ _i. 

2.000.000*. 

__i 

.. ! ENTRATE 7 

i___ 

30.000.000' 

___i. 

2.500.000' 

_i 

2.333.333! 

7.000.000' 

.. _ _ i 

23.000.000 

____i 


59.400.000' 

i. 

66.000.000' 

_ .1 

64.000.000*. 

i 

,.!T 0 T A L E 

i_ 

765.000.000' 

.i 

63.750.000! 

_i. 

63.133.333! 

i _ 

189.400.000' 

575.600.000 1 

_ 


USCITE! 

USCITE' 

USCITE!. 

..! USCITE 

USCITE! 

USCITE' 

USCITE! 

i. 

USCITE* 

t 

USCITE 


400.000' 

400.000* 

400.000'. 

..!USCITE 1 

6.000.000' 

500.000' 

400.000' 

1.200.000' 

4.800.000 


5.000.000' 

5.000.000' 

5.000.000!. 

..'USCITE 2 

72.000.000' 

6.000.000» 

5.000.000! 

15.000.000' 

57.000.000 1 


2.000.000' 

2.000.000' 

2.000.000'. 

..!USCITE 3 

24.000.000' 

2.000.000» 

2.000.000' 

6.000.000' 

18.000.000 


12.000.000! 

12.000.000» 

12.000.000*. 

..'USCITE 4 

120.000.000* 

10.000.000' 

12.000.000! 

36.000.000' 

84.000.000 


4.000.000' 

4.000.000» 

4.000.000*. 

..!USCITE 5 

42.000.000* 

3.500.000' 

4.000.000! 

12.000.000' 

30.000.000' 


50.000' 

50.000» 

50.000'. 

..!USCITE 6 

900.000» 

75.000' 

50.000» 

150.000' 

750.000 


4.000.000! 

4.000.000» 

4.000.000'. 

..!USCITE 7 

51.000.000! 

4.250.000' 

4.000.000! 

12.000.000' 

39.000.000 1 


300.1)00' 

300.000! 

300.000*. 

..!USCITE 8 

3.000.000» 

250.000' 

300.000! 

900.000' 

2.100.000 


1.300.000' 

1.300.000» 

1.300.000*. 

..'USCITE 9 

12.000.000' 

1.000.000' 

1.300.000» 

3.900.000' 

8.100.000' 


3.000.000' 

3.000.000» 

3.000.000*. 

..!USCITE 10 

42.000.000' 

3.500.000' 

3.000.000! 

9.000.000» 

33.000.000' 


250.000' 

250.000» 

250.000'. 

..'USCITE 11 

3.000.000' 

250.000' 

250.000' 

750.000» 

2.250.000' 


1.000.000' 

1.000.000! 

1.000.000!. 

..!USCITE 12 

12.000.000! 

1.000.000' 

1.000.000' 

3.000.000' 

9.000.000' 


1.600.000' 

1.600.000» 

1.600.000'. 

.. ! USCITE 13 

18.000.000* 

1.500.000' 

1.600.000' 

4.800.000* 

13.200.000' 


800.000' 

800.000» 

800.000'. 

..'USCITE 14 

12.000.000' 

1.000.000* 

800.000* 

2.400.000» 

9.600.000' 


255.000' 

255.000' 

255.000'. 

..!USCITE 15 

3.000.000» 

250.000' 

255.000' 

765.000' 

2.235.000' 


4.000.000* 

4.000.000* 

4.000.000'. 

..'USCITE 16 

42.000.000' 

3.500.000* 

4.000.000! 

12.000.000' 

30.000.000' 


450.000' 

450.000' 

450.000!. 

..!USCITE 17 

9.000.000' 

750.000' 

450.000» 

1.350.000' 

7.650.000' 


5.000.000» 

5.000.000' 

5.000.000'. 

..'USCITE 18 

72.000.000' 

6.000.000' 

5.000.000» 

15.000.000' 

57.000.000' 


300.000* 

300.000* 

300.000'. 

..!USCITE 19 

2.400.000' 

200.000' 

300.000' 

900.000' 

1.500.000' 


1.300.000! 

1.300.000' 

1.300.000'. 

USCITE 20 

15.000.000» 

1.250.000! 

1.300.000» 

3.900.000» 

11.100.000' 


200.000' 

_ _ _i 

200.000» 
_ i 

200.000'. 

i 

..'USCITE 21 

i___ 

3.000.000' 

, 250.000' 

200.000» 

600.000' 

2.400.000' 


47.205.000* 

47.205.000' 

47.205.000». 

.. !T 0 T A L E 

564.300.000' 

47.025.000' 

47.205.000» 

141.615.000' 
-1 

422.685.000' 
-1 

!*#***«****! 

*#*#**##***!' 

»*###******!. 

..'BILANCIO P. 

200.700.000H 

i*********«* ! a***************** ! ****************** ! 

************* 1 
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Ecco i comandi per costruirlo in ViSicalc 

Non vengono citati quei comandi (pochi, per la verità) comuni ad 
Appleworks e VisiCalc. per i quali è necessario tare riferimento al testo. I 
comandi VisiCalc che servono a costruire il modello di Budget vengono 
elencati senza commenti, in quanto nel testo ogni passaggio è dettagliata- 
mente specificato. Ricordate inoltre che con VisiCalc non è possibile 
definire la larghezza delle singole colonne; suggeriamo pertanto che i 
punti esclamativi ( ! ) che abbiamo usato per delimitare le colonne di dati e 
scritte del nostro modello vengano omessi in un modello VisiCalc, o al 
massimo vengano inseriti in una colonna iniziale e una finale. 
Duplicazione; R. 

Salvataggio; SS seguito dal titolo del file. 

Centratura delle scritte nelle caselle; con VisiCalc non è possibile. 
Allineamento a destra delle scritte nelle singole caselle: FR 
Media: (ir/ AVERAGE( A1 . A20). Al e A20 naturalmente in questo caso 
sono solo esemplificativi. 

Ricalcolo manuale: GRM. Affinché il foglio elettronico esegua i calcoli 
bisogna premere punto esclamativo ( !) (per sicurezza almeno tre volte). 
Finestra verticale: WV. Per sincronizzarla premere subito dopo /WS. 
Titolo orizzontale: TU 

Stampa: posizionate il cursore alla prima casella in alto a sinistra che 
volete stampare, premete PP e il segno meno ( — ) e portate il cursore 
nell'ultima casella in basso a destra: verrà stampata tutta la parte compre¬ 
sa fra le due caselle. 


F. 1 e : BUDGET 


PARAMETRI DI STAMPA Esc: Rev/Agg/Mod i -f i c a 


-Margine Sinistro e 

LC: Larghezza Carta 
MS: Margine Sinistro 
MD: Margine Destro 
CP: Car./Poi 1 ice 


Destro- 

8,0 Pollici 
0,0 Pollici 
0,0 Pollici 
17 


-Margine Alto e Basso- 

AC: Altezza Carta 11,0 Pollic 
MA: Margine Alto 0,0 Pollic 
MB: Margine Basso 0,0 Pollic 
LP: Linee/Pollice 6 


Lunghezza Linea 8,0 Pollici 

Caratteri/Linea 136 


Lunghezza di Stampa 11,0 Pollic 
Linee/pagina 66 


-Parametri di stampa- 

CS: Inuia Codici Speciali alla stampante No 

TE: Stampa Testata a ogni inizio pagina No 

Spazio Singolo, Doppio o Triplo (1S/2S/3S) 1S 


Batti il codice del parametro 


24K Disp. 


Figura 7.1 parametri di stampa 
ottimali con una stampante 80 
caratteri. 


dell’anno, è inutile stampare anche gli 
altri nove, tanto avreste solo alcune 
colonne vuote e quindi insignificanti. 
Fate così: posizionate il cursore in Al, 
poi premete mela vuota s, e il compu¬ 
ter vi chiederà: Tutto Righe Colonne 
Blocco. Evidenziate Colonne. Appa¬ 
rirà la scritta: Usa le frecce per eviden¬ 
ziare Colonne , poi premi Return. Voi 
evidenziate, usando la freccia destra, 
le colonne A B C D E F G, poi preme¬ 


te Return. A questo punto il computer 
vi chiede su quale stampante dovrà 
"buttare" il testo. In genere ha per de¬ 
fault o lTmagewriter o la Apple DMP. 
Fate la vostra scelta e premete Return. 
Ultima domanda per completare la 
procedura: Quante copie? Se ve ne ba¬ 
sta una, premete Return, altrimenti il 
numero corrispondente alle vostre esi¬ 
genze. Poi ripetete la procedura, ma 
questa volta posizionatevi prima col 
cursore nella colonna Z, e stampate 
tutte le colonne a destra di Z. Otterre¬ 
te così due fogli facilmente incollabili 
in modo da avere un prospetto unico 
del budget, contenente i dati inseriti 
fino a questo momento. 



Corso 

Appleworks/VisiCalc 
anche su dischetto 

A partire da questo numero. 
Applicando offre a tutti i suoi 
lettori un corso pratico di utiliz¬ 
zo del programma Apple¬ 
works. Il corso prevede cinque 
modelli di spreadsheet, tre di 
data base e due di word proces¬ 
sor. Alla fine, chi seguirà il cor¬ 
so sarà in grado di utilizzare 
pienamente questo splendido 
programma disponibile in ita¬ 
liano presso tutti i computer- 
shop. 

Coloro che fossero interessa¬ 
ti solo allo spreadsheet, perché 
in possesso di VisiCalc, trove¬ 
ranno ugualmente interesse a 
seguirlo, in quanto tutti i co¬ 
mandi che servono a costruire i 
modelli di calcolo elettronico 
verranno forniti sia per Apple¬ 
works, sia per VisiCalc. 

Alla rubrica Disk Service, 
nelFultima pagina di Applican¬ 
do >, troverete il tagliando per 
ordinare i modelli, che di nu¬ 
mero in numero vengono pre¬ 
sentati, registrati su dischetto. 
Abbiamo contenuto il loro co¬ 
sto praticamente al valore del 
disco vergine (15.000 lire), se 
considerate le spese postali (il 
disco viene inviato raccoman¬ 
dato), per dare a tutti la possibi¬ 
lità di confrontare il modello 
costruito da sé con quello effet¬ 
tivamente creato dagli esperti 
di Applicando. E anche per av¬ 
vantaggiare coloro che non 
hanno tempo di seguire questo 
utilissimo corso, ma che deside¬ 
rano ugualmente servirsi dei 
modelli in casa o sul lavoro. 

Coloro invece che desidera¬ 
no solo due dischi , con 5 + 5 mo¬ 
delli. da utilizzare subito, pos¬ 
sono ordinarli a 80.000 lire. 

E* disponibile anche il disco 
dati per VisiCalc, con i cinque 
modelli, al prezzo di 40.000 li¬ 
re, oppure i singoli modelli, re¬ 
gistrati su dischetto, sempre al 
costo di 15.000 lire cadauno. 
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Immaginate un parco auto con tutte le auto bene in 
evidenza. Immaginatelo disegnato. Date la 127 
a tizio e voi prendete l’Argenta. Dal disegno spostate 
le due auto dal magazzino alle persone. 

Poi, quando vengono restituite, immaginate di riportarle 
nel vostro parco auto. A questo punto immaginate 
quel che volete con lo stesso principio. 

Ecco, Filevision è tutto questo, e molto di più... 

Filevision 


I nnanzitutto che cos’è? Un Data-ba¬ 
se, d’accordo. Ma completamente 
diverso da tutti gli altri visti finora. 
Oltre a conservare schede, come tutti i 
data-base, conserva infatti anche dise¬ 
gni legati a quelle schede. Come dire: 
un data-base anche grafico. A cosa 
serve? A moltissimo o a nulla, secon¬ 
do la fantasia e la creatività di chi in¬ 
tende utilizzarlo. Facciamo qualche 
esempio: supponiamo di avere un ma¬ 
gazzino e di disegnarlo sotto forma di 
scaffalature. Ebbene, possiamo dise¬ 
gnare (più o meno come si disegna con 
MacPaint, il programma che tutti i 
possessori di un Macintosh hanno e 
conoscono) tutti gli oggetti che conser¬ 
veremo in ogni scaffale, e a ogni ogget¬ 
to potremo legare una scheda infor¬ 
mativa. Spostando con il mouse quel¬ 
l’oggetto da uno scaffale all’altro, an¬ 
che la sua scheda lo seguirà. Supponia¬ 
mo di aggiungere una cassettiera: cosa 
ci sarà dentro? Possiamo anche aprire 
il cassetto e vederne il contenuto: og¬ 
getti che potremo spostare in altri cas¬ 
setti, o sugli scaffali. Anche gli scaffali 
o i cassetti d’altra parte potranno ave¬ 
re una loro scheda. E ancora: a oggetti 
diversi possono corrispondere schede 
diverse. Cioè, in pratica si tratta non di 
un solo data-base ma di più d’uno, e il 
tutto è collegato. 

Resa l’idea? Proviamo con un altro 
esempio, quello contenuto nel di¬ 
schetto originale con il nome Map. Ci 
si fa click due volte dentro e si apre 
fino a mostrare una cartina degli Stati 
Uniti. Qui i data-base che coesistono 
sono tre. Quello cosiddetto di back¬ 
ground, che contiene le informazioni 
sui disegni che compongono lo sfondo 
del disegno. Quello relativo agli stati, 
con informazioni sulla popolazione, 
reddito, eccetera, legate al profilo di 
ciascuno degli stati Usa. E quello rela¬ 
tivo agli uffici di una immaginaria so¬ 


cietà che opera su quasi tutto il territo¬ 
rio americano, con informazioni sul 
numero di dipendenti, anno di apertu¬ 
ra, eccetera di ciascun ufficio. 

Se col mouse si fa click su uno stato 


ecco che nella riga in basso, sotto la 
figura, compare il nome di quello sta¬ 
to. Di fianco c’è un tassellino con scrit¬ 
to Info. Facendo click lì dentro si acce¬ 
de alla scheda dello stato selezionato. 



La rappresentazione grafica di una cantina. È stata selezionata con il mouse la terza 
bottiglia dello scaffale 1. 



Ecco come appaiono nel data-base le informazioni relative alla bottiglia selezionata 
con il mouse nel disegno. 
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Ecco il risultato della selezione: le bottiglie che rispondono ai requisiti impostati 
nella videata in alto sono le tre che qui risultano evidenziate. 


Letti o aggiornati i dati, si può passare 
a una scheda precedente o successiva, 
oppure tornare al disegno clickando 
nel tassellino Done. Se invece col 
mouse si fa click sul simbolino che raf¬ 
figura un ufficio, le informazioni alle 
quali si accederà con la stessa procedu¬ 
ra riguarderanno gli uffici. In qualsiasi 
momento si può modificare la struttu¬ 
ra dei data base, aggiungere un cam¬ 


po, variarne l’impaginazione, eccete¬ 
ra. 

Poi c’è, fra i menù disponibili nella 
prima riga in alto, il Thinker, come 
dire, il pensatore. E’ uno strumento di 
selezione grafica: serve se si vogliono 
evidenziare solo le parti del disegno 
che rispondono a requisiti particolari. 
Per restare nell’ esempio americano si 
possono evidenziare tutti gli uffici che 


hanno raggiunto un certo fatturato, o 
tutti gli stati che dispongono di reddito 
prò capite e popolazione sufficienti a 
far pensare che anche lì, solo che vi si 
aprisse un ufficio, si potrebbe raggiun¬ 
gere adeguati risultati di vendita. 

Ma c’è ancora di più: applichiamo 
l’esempio del cassetto chiuso, del qua¬ 
le vorremmo vedere il contenuto, al 
caso di uno stato americano. Diciamo 
che non ci basta più vedere tutta la 
carta degli Stati Uniti: vogliamo vede¬ 
re la mappa di quel singolo stato in 
particolare. Ebbene, nell’angolo dello 
schermo a sinistra in basso, di fianco al 
tassellino Info c’è un tassellino che si 
chama Link, collegamento. Facciamo¬ 
ci click dentro dopo aver selezionato 
l’Arizona, e come per magia sullo 
schermo comparirà la mappa detta¬ 
gliata di quello stato. Inutile però sele¬ 
zionare altri stati e far click nel Link: V 
esempio finisce qui, e chi volesse an¬ 
che la mappa dettagliata della Califor¬ 
nia o del New Hampshire non ha che 
da disegnarsela. Poi, avendola salvata 
con un certo nome, dovrà andare a 
scrivere quel nome nella scheda del¬ 
l’oggetto collegato, nel campo chia¬ 
mato Link. Esempio: si disegna una 
mappa della California, si salva col no¬ 
me Cai. Poi si torna alla carta comple¬ 
ta degli Stati Uniti, si fa click sulla 
California, si fa click nel tassello Info 
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A. casa tua, partendo dalle nozioni 
di base e mettendo ogni volta in pratica 
ciò che impari, diventerai un esperto in 
micro-calcolatori 

Non solo, ma con i materiali del Corso 
costruirai interessanti apparecchiature 
che resteranno di tua proprietà e 
ti serviranno sempre: il MINILAJB 
(laboratorio di elettronica 
sperimentale), il TESTER (analizzatore 
universale), il DIGILAB (laboratorio 
digitale da tavolo), l’EPROM 
PROGRAMMER (programmatore di 
memorie EPROM) e l’ELETTRA COMPUTER 
SYSTEM (microcalcolatore basato sullo Z80). 
Chiedi oggi stesso informazioni gratis e senza 
impegno su questo 
nuovo Corso o 
sugli altri 9 Corsi 
di elettronica 
preparati per 
te da Scuola 
Radio 
Elettra. 


I microcomputer richiedono tecnici capaci di 
assicurarne sempre il perfetto funzionamento. Sapere 
com’è fatto un microcomputer, conoscerne tutti i segreti, 
è il punto di partenza per un’attività moderna, specialistica 
e interessante anche per le possibilità di guadagno. 

Ecco perché Scuola Radio Elettra 

ti propone il CORSO-NOVITÀ 
ELETTRONICA DIGITALE 
E MICROCOMPUTER 

in 44 gruppi di lenoni e 17 serie 
" di materiali con oltre 870 
componenti e accessori. 

Compila e spedisci questo tagliando. 




Scuola Radio Elettra 

Via Stellone 5-10126 Torino 


Compila, ritaglia, e spedisci solo per informazioni a: x 96 

SCUOLA RADIO ELETTRA - Via Stellone 5 -10126 Torino 

Vi prego di farmi avere, gratis e senza impegno, il materiale informativo relativo al Corso di: 


□ Tecnica elettronica 
sperimentale (NOVITÀ') 

□ Elettronica digitale (NOVITÀ’) 

□ Microcomputer (NOVITÀ’) 

□ Elettronica Radio TV 

□ Elettronica industriale 


□ Televisione b/n 

□ Televisione a colori 

□ Amplificazione stereo 
\J Alta fedeltà 

B Strumenti di misura 


(Indicare con una crocetta la casella che interessa) 


COGNOME 
NOME 

VIA _|_ 

LOCALITÀ' 

CAP _j_ 

ETÀ _|_ 

MOTIVO DELLA RICHIESTA: 


PER HOBBY □ 





















accedendo così alla scheda, e nel cam¬ 
po Link della scheda si scrive Cai. Da 
quel momento il collegamento è assi¬ 
curato. 

Dunque, a cosa serve questo pro¬ 
gramma? Ognuno potrà inventarsi 
l’applicazione che più gli aggrada, ma 
è chiaro che tutti coloro che devono 
preparare spesso presentazioni con di¬ 
segni basati sui propri dati possono 
avvantaggiarsene grandemente. Altre 
applicazioni più fantasiose possono ri¬ 
guardare il rapido ritrovamento del 
proprio vino in cantina o di propri libri 
in biblioteca. Un’impresa di costruzio¬ 
ni potrebbe disegnarsi una mappa dei 
cantieri, un data-base del personale, 
un altro dei macchinari, e spostare di 
volta in volta le risorse da un cantiere 
all’altro senza perdersi mai nulla. 

Inutile dire che Applicando molto 
volentieri darà notizia delle applica¬ 
zioni più interessanti che i lettori vor¬ 
ranno segnalare: serviranno a stimola¬ 
re la fantasia di altri lettori. Ma tornia¬ 
mo al programma. E’ in inglese e per il 
momento non ne è prevista la tradu¬ 
zione, ma niente paura: si tratta di 
poche parole il cui significato si ap¬ 
prende facilmente, e che poi si ripeto¬ 
no. A chi avvia il Mac con il dischetto 
Filevision può succedere di scoprire 
che la tastiera impazzisce: il program¬ 
ma infatti prevede di utilizzare la ta¬ 
stiera americana. Ma, anche qui, nien¬ 
te paura: basta avviare il Macintosh 
con MacWrite o MacPaint in italiano, 
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Ed eccone il risultato grafico: i venditori, e, per ciascuno, i prodotti venduti. Con possibilità di selezionare ed 
evidenziare i risultati commerciali raggiunti da ciascuno. 
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Ultimo esempio: una mappa degli Stati Uniti. Sotto sono stati evidenziati solo gli 
Stati in cui il reddito pro-capite è superiore ai 30 mila dollari l’anno. 


InnUnvnUìi Umidii State* 



e passare poi a Filevision. La tastiera 
risulterà così italiana anche con que¬ 
st’ultimo programma. 

Un’altra cosa: il dischetto si può co¬ 
piare, ed è senz’altro consigliabile far¬ 
lo subito, ma questo non vuol dire che 
non è protetto o che se ne può entrare 
in possesso senza acquistarlo. Inseren¬ 
do la copia infatti tutto apparentemen¬ 
te funziona come si deve, finché il di¬ 
schetto non viene espulso e sullo 
schermo compare una scritta in inglese 
che significa: Inserisci il dischetto^File- 
vision originale. E’ questione di pochi 
secondi: controllato che l’utente di¬ 
sponga davvero dell’originale, il com¬ 
puter lo restituisce, e richiede la copia 
per continuare a lavorare. Ingegnoso e 


ben trovato, anche perché 1’ originale 
così può essere protetto (basta sposta¬ 
re il quadratino di plastica sul retro del 
dischetto, fino a far comparire un buco 
quadrato) e usato poco (quando il 
computer lo richiede per la verifica lo 
si può inserire protetto). 

Ovviamente i data-base consentono 
stampe di ogni tipo, liste, etichette o 
scheda per scheda. Uno dei limiti del 
programma è però quello di non poter 
effettuare calcoli fra i campi. E’ un 
peccato veniale, però, ^considerate le 
altre caratteristiche. Filevision viene 
importato in Italia da Bits and Bytes e 
da J Soft. Costa 415.000 lire IVA 
esclusa. 



all'altezza 
dei tuoi problemi 



Acquistare un computer non è 
sufficiente a risolvere i tuoi pro¬ 
blemi. Devi acquistare quello più 
idoneo all'uso che devi farne. 
Computer Center: la più vasta 
gamma di computer per una 
scelta migliore • validissimo 
team di analisti programmatori a 
tua completa disposizione • tutte 
le periferiche e accessori • corsi 
di formazione professionale • 
Software House. 



VENDITA -ROMA 


Via Nizzà, 48/50/52 
Tel. 844.84.18-86.38.39 

Via Nizza, 26/28/30/32 

Tel. 844.80.22-85.79.57 
ViaSoana(P.za Tuscolo).24/26/28 

Tel. 759.15.44-759.27.90 

Via Prati Fiscali, 257/257a/257b 

Tel. 810.17.60 

ASSISTENZA TECNICA -ROMA 
Via Terni, 86/86a/86b 

Tel. 757.89.36 


: 1985 by fibbie e Applicando 










































































a_ 

Per chi 

comincia 



N uovi lettori, siate i benvenuti. Queste 
pagine sono per voi, e le ripeteremo a 
ogni numero per facilitare il primo incontro 
con Applicando e con il mondo di Apple. 
Ovviamente queste righe non intendono 
sostituire i manuali, dei quali consigliamo 
caldamente la lettura, ma possono bastare 
per chi intende soltanto utilizzare i pro¬ 
grammi che pubblichiamo, copiarli, salvar¬ 
li su dischetto e farli partire. 

Cominciamo con qualche rapidissima 
premessa su Apple //. Quando accendete 
per la prima volta il vostro Apple con un 
dischetto già inserito nel drive e la tastiera 
posizionata sull’inglese (per chi possiede 
Apple //e e //c), dovreste veder comparire 
sullo schermo il segno "]", chiamato curso¬ 
re, o prompt, in inglese. Mentre se avete la 
tastiera posizionata su italiano, vedrete é. 
La sua presenza significa che potete fare 
una di queste tre cose: 

1) Fornire al computer comandi destinati 
al drive (per esempio CATALOG mostra il 
contenuto del dischetto, se si tratta di un 
dischetto in Basic). 

2) Fornire comandi nella versione per 
Apple del linguaggio Basic (e cioè l’Apple- 
soft Basic). 

3) Battere sulla tastiera righe di pro¬ 
grammi in Applesoft Basic. 

Per copiare un programma da Applican¬ 
do potrà essere necesario fare tutte e tre le 
cose. 

Per battere un programma 

di Applicando 

Per prima cosa sarà opportuno leggere 
fino in fondo l’articolo che accompagna il 
programma. Può darsi che non capiate pro¬ 
prio tutto la prima volta: non preoccupate- 
vene, in seguito diventerà facilissimo. Cer¬ 
cate soprattutto le eventuali istruzioni che 
spiegano se occorre fare qualcosa di parti¬ 
colare per battere il programma. In ogni 
caso assicuratevi di aver pronto un dischet¬ 
to già inizializzato per poter salvare quel 
che avrete battuto. Per i dettagli su come 
inizialfezare un dischetto vergine, guardate 
i manuali: chi proprio ai manuali fosse al¬ 
lergico, faccia così: a Apple spento inseri¬ 
sca il dischetto System Master nel drive 1, e 
accenda il computer: quando il drive avrà 
smesso di girare (lueina rossa di nuovo 
spenta), tolga il System Master dal drive e 
inserisca al suo posto un dischetto sicura¬ 
mente vergine e sicuramente mai usato (at¬ 
tenzione: si possono ri—inizializzare anche 
dischetti già usati, ma il loro contenuto va 
irrimediabilmente perso) ; ora basta battere 
NEW, Return, e poi INIT HELLO, sem¬ 
pre seguito da Return. 

Tutti i programmi in Basic consistono di 
una sequenza di righe di istruzioni. Tutte le 


righe sono numerate all’inizio, e possono 
contenere una o più istruzioni. Se le istru¬ 
zioni sono più d’una, esse saranno separate 
da segni di due punti (:). Per esempio: 


20 FOR J = 1 TO 5 : PRINT 
CHR$(7) : NEXT J 


Per copiare da Applicando un program¬ 
ma, inserendolo nel vostro Apple, occorre 
assicurarsi che la memoria operativa del 
computer sia vuota battendo NEW Return 
(questa istruzione non cancella nulla di ciò 
che è registrato sui vostri dischetti: libera 
soltanto la memoria del computer dall’ulti¬ 
mo programma usato), ed è necessario poi 
battere i listati così come sono stampati, 
riga per riga, compresi i numeri di riga, 
battendo Return solo quando si arriva al 
numero di riga successivo. Quando sarà 
stata copiata anche l’ultima riga e l’ultimo 
Return (a fine riga), si potrà salvare il pro¬ 
gramma su dischetto (il dischetto che avete 
inizializzato, o un altro già inizializzato in 
precedenza su cui ci sia spazio libero a suffi¬ 
cienza). Per salvarlo basterà battere il co¬ 
mando SA VE, seguito dal nome che inten¬ 
dete dare al programma che avete trascrit¬ 
to. Questo è tutto, ma vediamo passo per 
passo un esempio. 


10 REM CAMPANELLO 
2 0 FOR J = 1 TO 5 : PRINT 
CHR$(7):NEXT J 
30 END 

Listato 1 


Per battere il semplice programma Cam¬ 
panello del listato 1 (produce solo un suono 
simile a quello di un campanello, null’al- 
tro), si seguirà questa sequenza: 

1) Battete NEW Return per cancellare 
dalla memoria qualsiasi programma prece¬ 
dentemente usato. (Se state lavorando su 
un Apple //e o un //c assicuratevi che il tasto 
CAPS LOCK, il primo in basso a sinistra, 
quello che permette di ottenere tutte maiu¬ 
scole, sia schiacciato). 

2) Battete la linea 10 esattamente com’è 
stampata e premete il tasto Return solo alla 
fine dell’ultima parola (CAMPANELLO). 

3) Battete allo stesso modo anche le linee 
20 e 30. 

4) Con un dischetto già inizializzato nel 
drive (nel drive 1, se ne avete due), battete 
SA VE CAMPANELLO Return, per regi¬ 
strare il vostro programma su dischetto. 

5) Poiché il vostro programma è ancora 
nella memoria del computer, per farlo gira¬ 
re basterà battere RUN e premere il tasto 
Return. Se cancellate la memoria facendo 
girare un altro programma o spegnendo il 


computer, per usare nuovamente il pro¬ 
gramma occorrerà inserire il dischetto nel 
drive e battere RUN CAMPANELLO Re¬ 
turn. 

Alcuni suggerimenti 

I suggerimenti che seguono possono ren¬ 
dere il lavoro di trascrizione un po’ più 
facile: 

1) Se commettete un errore di battitura 
in una riga e non avete ancora premuto il 
tasto Return, basterà tornare indietro con 
la freccetta sinistra, correggere l’errore, e 
tornare al punto in cui eravate con la frec¬ 
cetta destra, premendo Return come al so¬ 
lito solo a completamento dell’intera riga. 
Se invece vi accorgete dell’errore quando 
ormai avete premuto Return e siete passati 
a un’altra riga, completate tranquillamente 
la riga che state scrivendo, compreso il Re¬ 
turn finale; poi ribattete la riga in cui avete 
commesso l’errore: ribattetela per intero, 
con numero di riga e tutto il resto, e la 
nuova versione prenderà automaticamente 
il posto della vecchia. 

2) Siate particolarmente attenti a non 
commettere errori di trascrizione nelle ri¬ 
ghe in cui compare l’istruzione DATA. 
Nelle altre istruzioni un eventuale sbaglio è 
più facile da individuare, perché penserà 
eventualmente il computer a segnalarlo in 
seguito, nelle istruzioni DATA questo in¬ 
vece non avviene. 

3) Salvate periodicamente il programma 
mentre procedete, per minimizzare i guai 
di una eventuale interruzione di corrente. 
Se non avete tempo per trascrivere tutto il 
progamma, trascrivete fin dove potete o 
volete (ma comunque completando fino al 
Return la riga che state battendo), poi sal¬ 
vatelo su dischetto come se aveste finito. 
Per riprendere a trascrivere sarà sufficiente 
inserire il dischetto nel drive, accendere il 
computer, e battere LO AD seguito dal no¬ 
me che avete dato al programma, e da Re¬ 
turn (battete CATALOG se non ricordate 
più con che nome avete salvato il program¬ 
ma). La luce rossa sul drive si accenderà, e 
il vostro programma verrà caricato nella 
memoria operativa del computer. A questo 
punto battete LIST, e vedrete scorrere sul¬ 
lo schermo tutta la parte del programma 
che avevate già battuto. Continuate adesso 
tranquillamente dal punto in cui avevate 
interrotto. 

4) Prima di effettuare modifiche o ag¬ 
giunte, trascrivete l’intero programma e fa¬ 
telo girare per prova. Questo renderà più 
facile la ricerca di eventuali errori, isolando 
quelli commessi durante la battitura e la 
trascrizione. Non preoccupatevi per il nu¬ 
mero di errori di trascrizione che farete: è 
normale. Il computer vi segnalerà, riga per 
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riga, dove avete sbagliato. Basterà a questo 
punto controllare la riga, individuare l’er¬ 
rore commesso e ribattere correttamente 
l’intera riga. A questo punto occorre salva¬ 
re di nuovo il programma su dischetto. 

5) Le lettere minuscole possono essere 
usate solo all’interno di comandi che inclu¬ 
dono REM o tra virgolette. 

Programmi in 
linguaggio macchina 

Il Basic e il Dos sono ottimi linguaggi, 
ideati apposta per rendere più facile la pro¬ 
grammazione, ma l’Apple è in grado di 
ricevere comandi anche in un codice molto 
più vicino alla sua logica, chiamato linguag¬ 
gio macchina. Il linguaggio macchina è un 
po’ la lingua madre dell’Apple, un pro¬ 
gramma così composto sarà quindi compre¬ 
so dal computer molto più velocemente di 
un programma scritto in Basic. Per creare 
programmi in questa lingua si usa spesso un 
programma chiamato Assembler. L’As¬ 
sembler permette al programmatore di 
scrivere in un codice più facile del linguag¬ 
gio macchina: l’assembly. In un secondo 
momento il programma stesso si tradurrà in 
linguaggio macchina. L’Apple infatti non 
conosce l’assembly. 

Molti dei programmi che troverete su 
APPLICANDO saranno scritti in ambe¬ 
due le versioni: assembly e linguaggio mac¬ 
china; in questo modo potrete inserire le 
istruzioni direttamente in linguaggio mac¬ 
china, senza dovervi procurare il program¬ 
ma Assembler. In questo caso le istruzioni 
dovranno essere inserite direttamente nel 
System Monitor (da non confondere col 
monitor video): per raggiungere il System 
Monitor è sufficiente battere CALL-151 e 
schiacciare il tasto Return. A questo punto 
sullo schermo comparirà un asterisco (*) 
che indica che è stato raggiunto il contatto 
con il System Monitor. Per inserire i listati 
scritti in linguaggio macchina occorrerà al¬ 
lora battere, per esempio, i seguenti co¬ 
mandi: 


300: A2 05 20 DD FB CA F0 03 4C 02 03 60 
Return 


In questa serie di istruzioni il ’300’ indica 
una locazione di memoria e i due punti 
dicono all’Apple di inserire i seguenti nu¬ 
meri (A2 e gli altri numeri in base 16) in 
quella locazione. I numeri sono in base 16 
(esadecimale); non è necessario saper cal¬ 
colare con questa base per trascrivere i pro¬ 
grammi in linguaggio macchina, ma è im¬ 
portante sapere che in questo tipo di lin¬ 
guaggio i numeri sono dati sempre in esade¬ 
cimale. 

Facciamo un breve esempio di program¬ 
ma scritto in linguaggio macchina. Il se¬ 
guente listato serve a indirizzare alcuni dati 
in una particolare locazione di memoria: 

300.30B 

0300-A2 05 20 DD FB CA F0 03 
0308-4C 02 03 60 

Listato 2 


I numeri a sinistra delle lineette (atten¬ 
zione: le lineette non vanno digitate, al loro 
posto occorre battere un "due punti") sono 
le locazioni di memoria, vale a dire gli indi¬ 
rizzi dello spazio di memoria in cui il dato 
dovrà essere conservato, e i numeri seguen¬ 
ti sono il contenuto, i dati da memorizzare 
nelle sette locazioni di memoria indicate. I 
due numeri separati da un punto presenti 
nella prima riga indicano gli indirizzi inizia¬ 
li e finali della parte di memoria considera¬ 
ta. Questo programma è la traduzione del 
listato numero tre, scritto in assembly. Co¬ 
me si noterà le colonne a sinistra sono mol¬ 
to simili al listato numero due, contengono 
infatti le locazioni di memoria, mentre la 
parte a destra contiene istruzioni in assem¬ 
bly. Esistono diversi programmi assembler 
e diverse disposizioni dei listati, ma in tutti 
sono presenti queste due diverse colonne. 


1 *RINGER PROGRAM 



2 

ORG 

$300 


3 BELL EQU 

$FBDD 

0300: A2 05 

4 

LDX 

#$5 

0302: 20 DD FB 5 LOOP JSR 

BELL 

0305: CA 

6 

DEX 


0306: F0 03 

7 

BEQ 

END 

0308: 4C 02 03 

8 

JMP 

LOOP 

030B: 60 

9 END 

RTS 



Listato 3 




Per inserire i listati nella macchina è suf¬ 
ficiente eseguire le seguenti operazioni: 

1) Digitare CALL-151 Return per en¬ 
trare in contatto con il System Monitor, poi 
inserire la locazione di memoria, i due pun¬ 
ti e il contenuto della memoria; nel caso del 
listato numero due ad esempio si digiterà: 


300:A2 05 20 DD FB CA F0 03 Return 
308:4C 02 03 60 Return 


Un programma in Assembler sarà invece 
così inserito: 


300:A2 05 Return 
302:20 DD FB Return 
305 :CA Return 
306:F0 03 Return 
308:4C 02 03 Return 
30B:60 Return 


State attenti a non inserire lo spazio tra i 
due punti e il primo numero seguente, 
mentre invece bisogna mettere lo spazio fra 
le coppie di numeri. 

2) Una volta inserito l’intero listato, 
schiacciate CTRL-C Return per tornare al 
livello BASIC indicato dàl segno ’]’. 

3) Al contrario dei programmi in BASIC 
che iniziano nella stessa locazione di me¬ 
moria, e che possono essere salvati con un 
semplice SA VE, i programmi scritti in lin¬ 
guaggio macchina possono iniziare in di¬ 


versi punti della memoria. Per salvare lista¬ 
ti o dati in linguaggio macchina si dovrà 
indicare quindi la locazione alla quale ha 
inizio il programma da salvare e la lunghez¬ 
za dello stesso (in decimale o in esadecima¬ 
le). Per il programma usato prima come 
esempio, il comando sarà: 


BSAVE RINGER, A$300, L$C 


dove A$300 è la locazione di memoria di 
inizio programma e L$C è la lunghezza del 
programma (la lettera C corrisponde al nu¬ 
mero decimale 12). All’inizio dei listati in 
linguaggio macchina pubblicati su Appli¬ 
cando troverete sempre l’indicazione della 
locazione di memoria di inizio e fine pro¬ 
gramma; esempio: 300.3EA mentre nel 
corso dell’articolo troverete i parametri per 
salvare il programma, esempio: BSAVE 
RINGER, A$300,L$C. 

4) Per rivedere il listato che avete tra¬ 
scritto basterà battere 300.30B, e sullo 
schermo si riprodurrà tutto ciò che avete 
battuto. Per ottenere una copia sulla stam¬ 
pante, basterà battere PR # (£ se siete in 
tastiera italiana) seguito dal numero dello 
slot al quale avete collegato la stampante 
(normalmente il n. 1) Return e poi ancora 
300.30B Return. Le correzioni si fanno ri¬ 
battendo solo la riga contenente eventuali 
errori. 

5) Per far girare il programma basterà 
allora digitare BRUN RINGER, senza 
Tindirizzo. 

Quanto esposto sopra è valido sia per il 
DOS 3.3 (sistema operativo per la gestione 
del drive che veniva fornito prima dell’usci¬ 
ta del //c) sia per il ProDOS (sistema opera¬ 
tivo fornito con il //c). Usando il ProDOS 
occorre però fare alcune precisazioni. 

I comandi del tipo SAVE, LOAD, 
RUN, CATALOG, ecc. vengono accettati 
anche in forma minuscola. 

Per formattare un disco non si potrà più 
usare il comando INIT HELLO, ma sarà 
necessario usare il disco UTILITIES di Si¬ 
stema fornito con il computer. Durante 
questa operazione vi verrà chiesto se il no¬ 
me del disco, assegnato automaticamente 
dal computer, va bene oppure se volete 
cambiarlo. Infatti tutti i dischi formattati in 
ProDOS (indicati come Volume) hanno un 
nome e vengono riconosciuti indicando 
questo nome dopo un comando diretto al 
drive. Per esempio se volete vedere il cata- 
log di un disco chiamato BLANK, dovete 
battere CAT/BLANK. 

Per non ripetere continuamente il nome 
del disco potete battere, prima dei comandi 
diretti al drive, PREFIX/nome disco segui¬ 
to da RETURN. Da questo momento tutti 
i comandi al drive saranno diretti automati¬ 
camente al disco scelto. 

Per vedere il catalog è sufficiente battere 
CAT. 

Durante l’uso di alcuni programi scritti in 
ProDOS potreste trovarvi una richiesta del 
tipo "PATHNAME?"; non spaventatevi, il 
pathname è il nome del disco al quale vo¬ 
gliamo fare riferimento, scritto entro due 
barrette (/) e seguito dal nome del file che 
vogliamo salvare o caricare in memoria op¬ 
pure trasferire da un disco a un altro. 
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STAMPANTI Epson, 

una scelta prestigiosa, senza compromessi 





Con 132 colonne e 160 ca¬ 
ratteri al secondo, la FX-100 
è la stampante ideale per 
data processing e tabula¬ 
ti, specialmente in uffi¬ 
cio grazie anche alla 
possibilità di accettare 
fogli singoli e moduli 
continui di qualsiasi 
formato. La matrice 
ti 11x9 consente prestazioni 
fiche e la formazione di una 
sima varietà di tipi di carattere, 

256, definibili anche dall’utente e me¬ 
morizzati nei 3 kbyte di RAM interna. La 
FX-100 non teme la fatica: la testina di 
stampa è garantita per oltre 100 milioni 
di caratteri ed è facilmente sostituibile. 
Inseritori automatici di fogli singoli. 


fino 


Epson dunque, senza compromessi 


^7^ 


Scegliere una 
stampante è facile? 

C’è una sola regola, pretendere 
sempre il massimo delle prestazioni, 
senza compromessi: materiali e compo¬ 
nenti di prima qualità, disegno elegan¬ 
te, grande affidabilità, robustezza, faci¬ 
lità e flessibilità d’impiego, prezzo ade¬ 
guato e la garanzia di un grande costrut¬ 
tore leader mondiale. 

Così, con Epson, la scelta è facile e 
sicura. 

Epson il più grande costruttore al mon¬ 
do di stampanti vi offre una gamma di 
prodotti prestigiosi che soddisfano ogni 
vostra necessità. Epson, una soluzione 
raffinata, in esclusiva per il vostro com¬ 
puter. 


FX-BD 


Indispensabile nelle applicazioni in 
cui la versatilità e la qualità di stampa 
sono un imperativo. 

Possibilità di creare qualsiasi carat¬ 
tere su una matrice di 11x9 punti. Memo¬ 
ria RAM da 4 Kbyte. 256 tipi di caratteri 
definibili dall’utente. 136 tipi di caratteri 
a corredo. Alta velocità di stampa a 160 
caratteri al secondo su 80 colonne. Ben 
9 modi di stampa grafica punto a punto 
selezionabili sulla stessa riga contem¬ 
poraneamente. 

Inseritori automatici di fogli singoli a sin : 
gola e dopgia vaschetta. 


FX-1DD 


RX-BD/RXIDD 

Le migliori prestazioni da stampanti, 
semplici, versatili, silenziose e veloci 
con 100 caratteri al secondo. 128 tipi di 
caratteri selezionabili e 11 set intema¬ 
zionali. 80 o 132 colonne. 6 diverse posi- 
bilità grafiche. Tutti i tipi di carta, modu¬ 
lo continuo, foglio singolo. Inseritori au¬ 
tomatici di fogli singoli. 


EPSON 


EPSON, computer e periferiche 
sono prodotti distribuiti, 
assistiti e garantiti 
da SEGI S.p.A. - Milano Via Timavo, 12 


GENERALI PER 
L INFORMATICA 


studio martinetti 





L’Applesoft Line Editor (A.L.E.) è un programma di editing dos 3.3 4*1 
completo che aggiunge all’Apple potenti comandi di editing 
e un più ampio controllo del cursore. Scritto in assembler, appiè 'ih +mi 
è destinato all’impiego con l’Applesoft-basic nella ROM. 


Applesoft line editor 


A un tocco del tasto &, l’A.L.E. 

lista le linee del programma uti¬ 
lizzando l’intera larghezza di 40 carat¬ 
teri dello schermo, e stampa i caratteri 
di controllo in campo inverso. Fra le 
altre sue caratteristiche di particolare 
rilievo segnaliamo l’autonumerazione 
delle linee, rinserimento e cancella¬ 
zione e lo spostamento avanti e indie¬ 
tro del cursore. 

Per salvare Y A.L.E. su dischetto, 
digitate dapprima il programma in me¬ 
moria. Potete farlo usando l’assembla¬ 
tore del TOOL-KIT oppure usando 
l’immissione diretta in memoria. Se 
non sapete con certezza come fare, 
consultate l’articolo Per chi comincia , 
alle pagg. 74-75. Per l’immissione di¬ 
retta in memoria andate dapprima in 
Monitor battendo CALL-151. Poi co¬ 
minciate a introdurre il codice in lin¬ 
guaggio macchina battendo 9010 :A9 
4C 8D F5 03 e così via. Per salvare il 
programma su dischetto scrivete BSA- 
VE A.L.E.,A$9010,L$3FE; per farlo 
partire, battete invece BRUN A.L.E. 
Di norma qualsiasi programma prece¬ 
dentemente in memoria non sarà alte¬ 
rato. Il programma è ora pronto per 
l’impiego. Per editare la prima linea 
del proprio programma battete: 


& NUMERO DELLA LINEA 


Se il numero di linea è in memoria, per 
prima cosa l’intera linea verrà stampa¬ 
ta sullo schermo, poi il cursore verrà 
posizionato dopo il numero di linea. 
Se non è in memoria viene stampato 
soltanto il numero di linea seguito dal 
cursore. Adesso l’A.L.E. è nel modo 
NORMALE, in attesa di input. Nel 
modo NORMALE tutti i tasti rispon¬ 
dono ai consueti comandi, con queste 
eccezioni: 


-► Funziona normalmente, con la 
differenza che il cursore avanzerà solo 
di uno spazio oltre l’ultimo carattere 
della linea. 

Funziona normalmente, con la dif¬ 
ferenza che il cursore non tornerà in¬ 
dietro oltre il primo carattere del nu¬ 
mero di linea. 

CARATTERI CTRL Stampati in cam¬ 
po inverso. 

ESC Imposta il programma nel modo 
EDIT. 

Nel modo EDIT sono disponibili le 
seguenti opzioni: 

I Inserisce un carattere 
D Cancella un carattere 
F Auto cursore avanti 
B Auto cursore indietro 
QUALSIASI TASTO Arresto auto 
cursore Cursore in su 
-► Cursore in giù 
A Accetta com’è 
RETURN Accetta fino al cursore 
N Accetta com’è, poi va al numero di 
linea seguente 

R Accetta fino al cursore, poi va al 
numero di linea seguente 
X Ritorna in Applesoft 
M Parentesi quadra sinistra ([) 

/ Barra rovesciata (\) 

- Sottolineatura (—) 

BARRA SPAZIATRICE Entra nel 
modo NORMALE. 

Il comando INSERT (tasto I) spo¬ 
sterà tutti i caratteri di uno spazio a 
destra, cominciando dalla posizione 
del cursore. A livello del cursore viene 
lasciato uno spazio. Il comando DE- 
LETE (tasto D) cancella il carattere 
sotto il cursore, poi sposta i restanti 
caratteri, dal cursore alla fine della li¬ 
nea, di uno spazio a sinistra. Questi 
comandi non fanno uscire dal modo 
EDIT. Ciò permette, per esempio, di 
premere il tasto I tre volte per far po¬ 
sto a tre caratteri. Premendo la BAR¬ 


RA SPAZIATRICE si entrerà nel 
modo NORMALE. 

Auto cursore. Questa funzione spo¬ 
sterà il cursore automaticamente in 
avanti (tasto F) o all’indietro (tasto 
B). Il cursore continuerà a muoversi 
fino a quando verrà premuto un altro 
tasto qualsiasi 0 fino a quando rag¬ 
giungerà la fine o l’inizio della linea. 
Premendo la BARRA SPAZIATRI¬ 
CE il movimento si arresterà e l’A- 
.L.E. entrerà nel modo NORMALE. 
La velocità del cursore può essere 
cambiata battendo dall’Applesoft PO- 
KE 30, SPEED, dove SPEED può es¬ 
sere qualsiasi numero intero da 0 a 
225.11 numero 1 è veloce e 255 è lento. 
Inizialmente è impostata su 150. 

Nel modo EDIT la FRECCIA SI¬ 
NISTRA si comporta come freccia in 
su e la FRECCIA DESTRA diventa la 
freccia in giù. Il cursore non andrà al 
disotto della linea in fondo né al diso¬ 
pra della linea alla sommità. L’A.L.E. 
rimane nel modo EDIT. 

Quando si preme il tasto A, l’A- 
.L.E. accetterà l’intera linea, qualun¬ 
que sia la posizione del cursore, poi 
tornerà in Applesoft. Quando si pre¬ 
me il tasto RETURN esso funziona 
normalmente, e accetta la linea fino al 
cursore. Poi ritorna in Applesoft. 

Il tasto N si comporta come il tasto 
A, con la differenza che non ritorna in 
Applesoft ma viene attivata la funzio¬ 
ne di autonumerazione della linea. 
Inoltre il tasto R accetterà fino al cur¬ 
sore e poi svolgerà la funzione di auto¬ 
numerazione della linea. 

La funzione di autonumerazione 
della linea incrementa il numero di li¬ 
nea alla successiva linea effettivamen¬ 
te in memoria, poi, come quando era 
stato attivato da principio l’A.L.E., la 
nuova linea viene stampata sullo 
schermo, con il cursore posizionato 









dopo il numero di linea. Se questa era 
l’ultima linea in memoria, l’A.L.E. 
tornerà in Applesoft. 

Qualche volta, magari quando si sta 
battendo un nuovo programma, può 
darsi che si voglia che la funzione di 
autonumerazione della linea abbia un 
incremento predefinito. Nessun pro¬ 
blema: Tincremento del numero di li¬ 
nea può essere impostato battendo 
dall’Applesoft POKE 28, INCRE- 
MENT, dove INCREMENT può es¬ 
sere qualsiasi numero intero da 0 a 
255. Se l’incremento è fissato a 0, (va¬ 
lore di Default), la funzione di autonu¬ 
merazione della linea si comporterà 
come sopra, locando la successiva li¬ 
nea effettivamente in memoria. 

Per tornare in Applesoft dall’A- 
.L.E. senza cambiare la linea in me¬ 
moria battete il tasto X (è come fare 
CTRL-X dall’Applesoft). Il comando 
ACCEPT rimuove tutti gli spazi non 
necessari dalla linea editata o di nuova 
digitazione, prima di utilizzare le rou¬ 
tine di ROM dell’Applesoft per intro¬ 
durre in memoria la linea. Questo per¬ 
metterà di battere ed editare lunghe 
linee di programma senza doversi 
preoccupare degli spazi. (L’Applesoft 
permette un massimo di 239 caratteri.) 

Caratteri speciali 

Come si sa l’Applesoft stampa il 
simbolo di parentesi quadra destra (]) 
quando si batte SHIFT-M. L’A.L.E. 
fa questo nel modo NORMALE. Altri 
caratteri speciali possono essere otte¬ 
nuti dal modo EDIT battendo il tasto 
M per la parentesi quadra sinistra ([), 
il tasto DIVISIONE per la barra rove¬ 
sciata (\) e il tasto MENO per il carat¬ 
tere di sottolineatura (—). Questi ca¬ 
ratteri impostano il programma sul 
modo NORMALE. 

Come funziona 

L’A.L.E. risiede in memoria par¬ 
tendo da $9010. Il programma vero e 
proprio è lungo 1006 byte. Inoltre esso 
usa 512 byte per lo spazio di buffer, 
che è locato sopra il programma, par¬ 
tendo da $9400. 

Il programma consta di cinque se¬ 
zioni. La prima (INIZIALIZZA) ini- 
zializza il sistema. La seconda (IM¬ 
METTE NUMERO DI LINEA) ana¬ 
lizza l’input per vedere se la sintassi sia 
giusta. La terza sezione (STAMPA 
LINEA E MEMORIZZA NEL BUF¬ 
FER) cerca il numero di linea che è 
introdotto, poi stampa l’intera linea se 
viene trovata, o soltanto il numero di 
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linea in caso contrario. Mentre i carat¬ 
teri vengono stampati sullo schermo 
sono anche memorizzati nel buffer 
dell’A.L.E. La quarta sezione (ROU¬ 
TINE DI EDITING DEL BUFFER) 
modifica il contenuto del buffer (e i 
caratteri sullo schermo) come si desi¬ 
dera. L’ultima sezione (METTE IL 
BUFFER IN APPLESOFT) trasferi¬ 
sce il buffer dei programmi nel buffer 
di tastiera, poi lo fa immagazzinare in 
memoria dalla ROM dell’Applesoft. 
Se è in effetto l’autonumerazione di 
linea, questa sezione "batte" inoltre il 
nuovo numero di linea nel buffer di 
tastiera, poi salta alla sezione IM¬ 
METTE NUMERO DI LINEA. Cia¬ 
scuna di queste sezioni sarà ora de¬ 
scritta con maggiori particolari. 

Quando l’A.L.E. è caricato in me¬ 
moria deve essere inizializzato prima 
di poter essere usato. Lo si fa con 
BRUN per caricarlo da dischetto o 
con 9010G da Monitor. Dapprima il 
vettore & (in inglese Ampersand è 
questa la locazione d’indirizzo $3F5 
alla quale salta l’Applesoft quando in¬ 
contra l’&) viene impostato sull’indi¬ 
rizzo iniziale del programma. Poi HI- 
MEM viene spostato in giù sotto il 
programma a 36880 ($9010). Così si 
protegge il programma dall’Apple- 
soft. Vengono inoltre impostati il ri¬ 
tardo (DELAY) (questo determina la 
velocità per la funzione del cursore 
automatico) e l’incremento INCR del- 
l’autonumerazione di linea. Questa 
sezione del programma non viene più 
adoperata fino alla prossima volta che 
si caricherà l’A.L.E. 

Immette numero di linea. E’ questo 
l’inizio effettivo del programma. I ca¬ 
ratteri battuti dopo il simbolo & ven¬ 
gono controllati per vedere se siano 
numerici. In caso contrario viene fatto 
un salto a SNTXER ($DEC9), che è la 
routine della ROM dell’Applesoft per 
stampare "SYNTAX ERROR". Se 
l’input è numerico vengono usate le 
routine Applesoft CHRGOT ($B7) e 
LINGET ($DA0C) per memorizzare 
il numero di linea in LINNUM 
($50.$51). LINGET uscirà su 
SNTXER se il numero di linea è mag¬ 
giore di 63999. 

Dopo che il puntatore di testo 
TXTPTR ($B8), il contatore di tabu¬ 
lazione verticale VCOUNT e il buffer 
di programma sono azzerati, la routi¬ 
ne CHRGET ($B1) preleva dalla li¬ 
nea, che è stata digitata, un carattere 
alla volta. Ogni volta il programma va 
alla subroutine PSII. Questa subrouti¬ 
ne stampa il carattere (inverso se è un 
carattere di controllo), memorizza il 
carattere nel buffer di programma, in¬ 


crementa il puntatore di buffer 
BUFPTR e poi incrementa il contato¬ 
re di tabulazione verticale VCOUNT, 
se necessario. Quando il numero di 
linea è stampato e memorizzato viene 
usata la subroutine SPSII per stampa¬ 
re e memorizzare uno spazio. Poi vie¬ 
ne memorizzata la posizione orizzon¬ 
tale del cursore in modo che lo si possa 
far tornare alla sua posizione presen¬ 
te. Si utilizza la routine FNDLIN 
($D61A) dell’Applesoft per vedere se 
il numero di linea (memorizzato in 
LINNUM) sia in memoria. In caso ne¬ 
gativo viene fatto un salto alla sezione 
successiva. Se la linea è in memoria 
LOWTR ($9B) è impostato sul suo 
indirizzo di link field (puntatore di li¬ 
nea). Il passo successivo consiste nella 
stampa della linea. Viene fatto un ca¬ 
rattere alla volta usando LOWTR e la 
subroutine PSII. L’eccezione è data 
dal fatto che l’Applesoft memorizza i 
suoi comandi (parole chiave) come to- 
ken (simboli). Questi token, quando 
vengono incontrati, devono essere 
convertiti in caratteri, poi ciascun ca¬ 


9328- 

D4 

A5 

50 

18 

65 

1C 

85 

9F 

9330- 

A5 

51 

69 

00 

85 

9E 

A2 

90 

9338- 

38 

20 

A0 

EB 

20 

34 

ED 

20 

9340- 

E7 

E3 

20 

00 

E6 

A0 

00 

B1 

9348- 

5E 

99 

01 

02 

FO 

03 

C8 

DO 

9350- 

F6 

AO 

01 

84 

88 

C8 

84 

B9 

9358- 

4C 

30 

90 

A2 

00 

A0 

00 

84 

9360- 

06 

84 

08 

84 

09 

A5 

25 

38 

9368- 

E5 

19 

85 

25 

A9 

00 

85 

1A 

9370- 

A9 

94 

85 

1B 

81 

1A 

F0 

77 

9378- 

C9 

52 

DO 

19 

C8 

81 

1A 

C9 

9380- 

45 

DO 

0E 

C8 

81 

1A 

C9 

4D 

9388- 

DO 

07 

C8 

81 

1A 

C9 

20 

F0 

9390- 

24 

A0 

00 

Bi 

1A 

C9 

44 

DO 

9398- 

22 

C8 

B1 

1A 

C9 

41 

DO 

17 

93A0- 

C8 

81 

1A 

C9 

54 

DO 

10 

CB 

93A8- 

81 

1A 

C9 

41 

DO 

09 

C8 

B1 

93B0- 

1A 

C9 

20 

DO 

02 

E6 

08 

A0 

9388- 

00 

81 

1A 

C9 

22 

DO 

03 

20 

93C0- 

F8 

93 

81 

1A 

C9 

20 

DO 

12 

9308- 

A5 

08 

FO 

08 

C9 

01 

DO 

08 

93D0- 

E6 

08 

DO 

0A 

24 

09 

10 

06 

93D8- 

81 

1A 

9D 

00 

02 

E8 

20 

92 

93E0- 

92 

E6 

06 

A5 

06 

C9 

28 

DO 

93E8- 

88 

E6 

25 

84 

06 

DO 

85 

84 

93F0- 

24 

20 

FB 

DA 

20 

FB 

DA 

60 

93F8- 

A5 

09 

49 

80 

85 

09 

60 



rattere viene stampato e memorizza¬ 
to. Questo viene fatto a TOKEN. 

Le parole chiave sono elencate a pa¬ 
gina 121 del manuale Applesoft. Esse 
sono memorizzate nella tavola dei to¬ 
ken (codice ASCII) in quell’ordine 
esatto, e l’ultimo carattere di ciascuna 
parola chiave è contrassegnato dal¬ 
l’impostazione del bit 7 (MSB). 


Per esempio: 


DODO 

Indirizzo esadeciroale 

DODI D0D2 D0D3 D0D4 

D0D5 

45 

Codice ASCII 

4E C4(44> 46 

4F 

D2(52) 

E 

Carattere 

N D F 

0 

R 


Sottraendo 127 ($F7) dal numero di 
token possiamo trovare la locazione 
della parola chiave. Per esempio la pa¬ 
rola chiave FOR 129 ($81) -127 ($7F) 
= 2. FOR è la seconda parola chiave 
della tavola. 

Dopo che si è trovata la parola chia¬ 
ve questa viene stampata e memoriz¬ 
zata usando la subroutine PSII a 
PRTTOK. Viene stampato uno spazio 
prima e dopo ogni parola chiave usan¬ 
do la subroutine SPSII. Si noti la su¬ 
broutine Applesoft INCLD ($D72C). 
Questa incrementa il puntatore della 
tavola dei token TOKPTR e poi carica 
nel registro A (accumulatore) il carat¬ 
tere puntato da TOKPTR. 

Una volta che la linea è stampata e 
memorizzata nel buffer, BUFPTR e la 
posizione del cursore vengono ripristi¬ 
nati ai valori memorizzati nella sezio¬ 
ne precedente. Adesso siamo pronti 
per l’editing del buffer. Le varie routi¬ 
ne di questa sezione editano la linea 
stampata sullo schermo e anche il buf¬ 
fer di programma, che contiene 
un’"immagine duplicata" della linea in 
codice ASCII. Il buffer di programma 
non contiene alcun token. A fare il 
token delle parole chiave si provvede- 
rà nella successiva sezione dell’A.L.E. 
E’ importante che ogni cambiamento 
fatto sullo schermo sia fatto anche al¬ 
l’appropriato indirizzo aH’interno del 
buffer. Ciò viene fatto incrementando 
o decrementando BFPTR (che punta 
Pindirizzó di buffer da cambiare) della 
distanza che il cursore ha percorso. 

Il comando EDIT usa diverse routi¬ 
ne del programma e della ROM. 
KEYIN è la routine di input da tastie¬ 
ra usata nel modo NORMALE, e 
CMD è la routine di input usata nel 
modo EDIT. Esse utilizzano la routi¬ 
ne della ROM Applesoft INCHR 
($D553), che è la routine di input del 
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carattere. L’input del carattere ASCII 
viene poi confrontato con i valori 
ASCII che rappresentano gli specifici 
tasti, e ciò determina a sua volta la 
routine che il programma deve esegui¬ 
re. BSPACE ($FC10), usato in 
BCKARR, AUTBCK e nella subrou¬ 
tine FLASH, è una routine della 
ROM del MONITOR per portare in¬ 
dietro di una posizione il cursore. E’ 
seguita o dalla subroutine DECBUF, 
che decrementa BFPTR, o da 
PRTCHR, che riporta indietro il cur¬ 
sore alla sua posizione originale, non 
richiedendo così alcun cambiamento a 
BFPTR. PRTCHR usa COUT1 
($FDF0), la routine del MONITOR 
(in ROM) per l’output di un carattere 
sullo schermo. Imposta il bit 7 (del 
registro A) per il normale output vi¬ 
deo. Per i caratteri di controllo il bit 7 
non viene impostato e COUT1 stampa 
i caratteri sul video in campo inverso. 

Un’altra utile routine del MONI¬ 
TOR è VERTAB ($FC22), che posi¬ 
ziona il cursore in senso verticale sul 
valore memorizzato in VPOS ($25). 

La routine UPARR (freccia in su) 
sposta il cursore in su di una posizione 
verticale, poi decrementa BUFPTR di 
40. Viene fatto dapprima ujji controllo 
per vedere se il cursore sia sulla linea 
più alta (VCOUNT = 0) e in caso 
affermativo non viene intrapresa alcu¬ 
na azione e viene fatto un salto a 
CMD. La ROUTINE DNARR (frec¬ 
cia in giù) è analoga, sposta il cursore 
in giù e incrementa BUFPTR di 40. 
Viene prima fatto un controllo della 
linea più bassa incrementando 
BFPTR, poi controllando se ci sia uno 
"00" dove BUPFTR punta aH’interno 
del buffer. Se si tratta di uno "00" il 
programma si interrompe ripristinan¬ 
do BFPTR e poi saltando a CMD. 

INSERT & DELETE dapprima 
memorizza la posizione presente del 
cursore e di BFPTR alla subroutine 
STOR. Una volta "spostati" i caratteri 
sullo schermo e all’interno del buffer il 
cursore e BUFPTR sono ripristinati ai 
valori memorizzati. VCOUNT viene 
usato da INSERT per aggiornare la 
posizione verticale VPOS nel caso che 
la schermata sia stata fatta scorrere in 
su. 

AUFWD (cursore automatico in 
avanti) e AUTBCK (cursore automa¬ 
tico all’indietro) usano la subroutine 
FLASH, che stampa il carattere di sot¬ 
tolineatura sullo schermo e poi ristam¬ 
pa il carattere originale. AUTFWD 
stampa il carattere per spostare il cur¬ 
sore in avanti. AUTBCK usa BSPA¬ 
CE (descritto sopra). 

Il buffer editato sarà ora immagazzi¬ 


nato nella memoria (il programma 
BASIC). Dato che il buffer era in ori¬ 
gine azzerato, termina con uno "00". 
Questo è usato per contrassegnare la 
fine del buffer (END Of LINE, fine 
della linea). Se le opzioni di accetta¬ 
zione fino al cursore sono "R" e "RE¬ 
TURN" viene posto uno "00" alla pre¬ 
sente posizione del cursore. 

Il passo successivo consiste nel tra¬ 
sferimento del buffer nel buffer di ta¬ 
stiera. Questo viene fatto dalla su¬ 
broutine TRNSFR. Durante questo 
trasferimento vengono rimossi tutti gli 
spazi che non sono fra virgolette e do¬ 
po istruzioni REM o DATA. Così pu¬ 
re viene rimosso uno spazio dopo un’i¬ 
struzione REM o DATA, per com¬ 
pensare quello che l’Applesoft mette. 
E’ possibile far togliere all’A.L.E. tut¬ 
ti gli spazi dopo un’istruzione REM o 
DATA cancellando lo spazio che se¬ 
gue (o gli spazi che seguono) immedia¬ 
tamente l’istruzione REM o DATA. 

Per esempio: 


1000 DATA20,30,4 0,50,60 

rimuoverà gli spazi in più. 

A trasferimento completato il regi¬ 
stro X è adesso uguale al numero dei 
caratteri nel buffer di tastiera. 
GDBUF1 ($D533) imposterà X = 239 
($EF) se è maggiore di 239. Poi mette 
il marcatore di EOL (ossia di fine li¬ 
nea) "00" e prepara i registri e il buffer 
di tastiera per la routine seguente, 
PUTMEM ($D444). 

PUTMEM è la routine dell’Apple- 
soft ROM che immagazzina in memo¬ 
ria il buffer di tastiera. Esce normal¬ 
mente nell’Applesoft, con il carattere 
di prompt "é" ????? e il cursore lam¬ 
peggiante. Per la funzione di autonu¬ 
merazione della linea, la routine PUT¬ 
MEM deve essere "intercettata" prima 
che esca in Applesoft. Lo si fa ripristi¬ 
nando l’"interruttore di output dei ca¬ 
ratteri" (CSW) all’opportuno indirizzo 
aH’interno dell’A.L.E. (il CSW è de¬ 
scritto nei particolari a pagina 83 e 84 
dell’APPLE II REFERENCE MA¬ 
NU AL). Adesso quando la routine 
PUTMEM va a stampare il carattere 
di prompt salta invece indietro all’A; 
L.E. alla subroutine INTCEP. 

INTECP reimposta CSW sul suo va¬ 
lore originale, poi incrementa il cor¬ 
rente numero di linea del valore me¬ 
morizzato in INCR($1F). Se INCR è 
0 , il numero di linea viene impostato 
sull’effettiva linea seguente in memo¬ 
ria (se non ci sono altre linee il pro¬ 
gramma esce in Applesoft). Le routi¬ 



ne dell’Applesoft ROM CHNG 
($EBA0), FOUT ($ED34), STRLIT 
($E3E7) e FREFAC ($E600) conver¬ 
tono il nuovo numero di linea (ora in 
esadecimale) nel suo equivalente deci¬ 
male. Esso viene poi trasferito nel buf¬ 
fer di tastiera, e il puntatore di testo 
(TXTPTR) viene impostato sull’inizio 
del numero di linea. Si tratta della 
stessa situazione che si ha quando vie¬ 
ne digitato &<NUMERO DI LI¬ 
NE A>. Viene ora fatto un salto a 
START. 

Altre considerazioni 
sul programma 

Quando l’A.L.E. viene inizializza- 
to, la velocità del cursore è impostata 
su 150 e l’autonumerazione di linea 
viene incrementata a 0. Questi valori 
possono essere cambiati secondo le 
preferenze dell’utente, nell’arco da 0 a 
255, scrivendo in memoria con POKE 
i nuovi valori e poi risalvando il pro¬ 
gramma. La velocità del cursore è a 
36904 ($9028) e l’incremento del nu¬ 
mero di linea a 36908 ($902C). 

Come indicato sopra, l’uso dei ca¬ 
ratteri speciali lascerà l’A.L.E. nel 
modo NORMALE. Se si vuol lasciare 
il programma nel modo EDIT, per 
una più agevole ripetizione dei carat¬ 
teri, si faccia il POKE della locazione 
37248 ($9180) con 25 ($19) e il POKE 
della locazione 37249 ($9181) con 145 
($91), poi si risalvi il programma se si 
vuole che questo cambiamento sia 
permanente. Quando si usa la funzio¬ 
ne di CURSORE AUTOMATICO, 
l’A.L.E. normalmente rimane nel mo¬ 
do EDIT. Per modificare il program¬ 
ma in maniera che commuti al modo 
NORMALE quando il cursore rag¬ 
giunge la fine della linea (AUTO 
CURSORE IN AVANTI) si faccia il 
POKE della locazione 37418 ($922A) 
con 26 ($1A). Per l’inizio della linea 
(AUTO CURSORE ALL’INDIE- 
TRO) si faccia il POKE della locazio¬ 
ne 37457 ($9251) con 243 ($F3). Inol¬ 
tre il simbolo di sottolineatura che vie¬ 
ne usato durante lo spostamento può 
essere cambiato scrivendo in memoria 
con POKE il valore ASCII che si pre¬ 
ferisce nella locazione 37478 ($9266). 
Se si vuole si risalvi il programma per¬ 
ché la modifica sia permanente. 

Questo programma è disponibile 
su dischetto. L’elenco, i prezzi e le modalità 
d’ordine di questo e degli altri dischetti 
disponibili sono riportati nell’ultima 
pagina di Applicando, nella Rubrica 
Disk Service. 

- ¥ 
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Avete presente una tavola di figure salvata in linguaggio 
macchina? Può far comodo eliminarla, trasformando le sue 
coordinate in istruzioni Data. Ecco come... 



un file 
ora son data 


DOS 3.3 


ProDOS H 
APPLE //e 
APPLE 7k -tll 


I l problema che il programma di 
queste pagine risolve è quello di ag- 
giungere a un programma preesistente 
delle istruzioni DATA contenenti va¬ 
lori ricavati da un file presente su di¬ 
sco. Una tra le applicazioni pratiche di 
tale procedura potrebbe essere quella 
di rilevare le coordinate dei punti di un 
disegno tramite una tavoletta grafica; 
queste coordinate vengono usualmen¬ 
te depositate in un file su disco. Da 
questo file i valori numerici possono 
venir letti e comodamente trasformati 
in istruzioni DATA tramite il pro¬ 
gramma qui presentato. 

Il problema può essere affrontato in 
diversi modi. Descriveremo solamen¬ 


te il più semplice e funzionale. Ci pro¬ 
poniamo di leggere i valori numerici 
dal file su disco e creare le istruzioni 
DATA come stringhe. Queste verran¬ 
no scritte in un secondo file di testo. 
Tale file deve essere di tipo eseguibile 
dal comando EXEC del D. O.S. in mo¬ 
do da poter essere utilizzato per inseri¬ 
re le frasi DATA nel programma de¬ 
stinazione. 

Analizziamo innanzitutto il formato 
delle informazioni sul file origine; sup¬ 
poniamo per comodità che i valori nu¬ 
merici siano separati da un return, 
cioè da un CHR$(13), e non da virgo¬ 
le. In altre parole supponiamo che il 
programma che ha scritto il file sia del 


tipo 


PRINT A 
PRINT B 
PRINT C 


e non del tipo: 


PRINT A,B,C 


LISTATO 1. CREA FILE DATA 


m 

ne 

128 

138 

140 

150 

140 


REM === = == = === 

REM = CREA FILE 
REM ======== 

REM 
REM 
REM 
REM 


DATI' = 


ALBERTO STEINDLER 19.09.1984 


170 M = 
180 H = 
190 REM 
205 
210 
225 


250 

240 

270 

280 

290 

300 

310 

320 

330 


Nel listato n.l, programma CREA 
FILE “DATI”, si vede un esempio di 
quello che potrebbe essere un pro¬ 
gramma che genera un file di questo 
tipo. Esso infatti scrive su disco un file 
di nome DATI i cui record sono l’in¬ 
sieme dei primi N numeri interi, con N 
un numero fornito da tastiera. 

Nel listato n.2, si vede quello che 
potrebbe essere il PROGRAMMA 
PRINCIPALE nel quale vengono in¬ 
serite le istruzioni DATA. 

Passiamo finalmente all’analisi del 
listato n.3 nel quale troviamo il pro¬ 
gramma CREA FRASI “DATA”. Al¬ 
l’inizio. nelle linee dalla 160 alla 200 


CHR* GD: REM CTRL-B 
"DAT1■: REM NOME FILE 

- INGRESSO NLWERO DATI 

TEXT : HOME 
FOR K = 0 TO 1 

LTTAB 5: INPUT B NUMERO DATI : B ;N 
230 K = UN > 0) * (N = INT (NO) 

240 NEXT K 

REM - SCRITTURA FILE 

PRINT WOPEN'F* 

PRINT D* B DELETE B F$: REM POTEVA GIÀ' ESISTERE 
PRINT D* B QPEN B F* 

PRINT D$ B URITE B F* 

FOR K = 1 TO N 
PRINT K 
NEXT K 

PRINT D* B CL0SE B F* 


LISTATO 2. PROGRAMMA UFFICIALE 

tee 

REM 



110 

REM 

= PROGRAMMA PRINCIPALE = 

128 

REM 



130 

REM 



140 

REM 

ALBERTO STEINDLER 19.09.1984 

150 

REM 



168 

REM 

IN QUESTO PROGRAMMA SARAWO INSERITE 

170 

REM 

LE ISTRUZIONI 'DATA' CONTENENTI I 

180 

REM 

UALORI PRELEVATI DAL FILE DATI' 


troviamo delle istruzioni per il tratta¬ 
mento dell’errore sulle quali tornere¬ 
mo più avanti. Alla linea 220 viene 
definita la variabile alfanumerica 
D$(codice ASCII 4, equivalente a 
CTRL-D), che serve per poter utiliz¬ 
zare, all’interno di un programma BA¬ 
SIC APPLESOFT, i comandi D.O.S.. 

Per esempio, se noi volessimo scri¬ 
vere un programma che fa vedere sul 
video il CATALOG di un dischetto, 
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dovremmo fare: 


10 PRINT CHR$ (4) ; ' CATALO G ' 
o equivalentemente: 

10 D$ = CHR$(4) 

20 PRINT D$;'CATALOG'_ 

Il gruppo di istruzioni dalla 230 alla 
330 servono a fornire al calcolatore 
tramite la tastiera il nome del file da 
cui prelevare i valori (che nel nostro 
caso si chiama DATI), il nome del 
programma sul quale devono essere 
scritte le istruzioni DATA (nel nostro 
caso PROGRAMMA PRINCIPA¬ 
LE) e il numero di linea alla quale 
vogliamo che cominci la memorizza¬ 
zione delle istruzioni DATA. 

Da notare che le istruzioni utilizzate 
per l’INPUT della variabile numerica 
NI (numero iniziale di riga) eseguono 
un controllo sul valore in ingresso veri¬ 
ficando che esso sia compreso tra 0 e 
63999 e che si tratti di un valore intero. 
Ciò viene fatto tramite una struttura 
del tipo REPEAT ... UNTIL che, es¬ 
sendo assente nel basic Applesoft, vie¬ 
ne qui simulata con un FOR ... 
NEXT. 

A partire dalla linea 340 inizia la 
scrittura del file che conterrà le frasi 
DATA. Tale file si chiama come il file 
sorgente ma con un suffisso ".EX"; 
quindi se il file sorgente si chiama 
"DATI" esso si chiamerà "DATI.EX". 

L’istruzione VERIFY alla linea 360 
serve a vedere se il file sorgente, il cui 
nome è stato immesso da tastiera, esi¬ 
ste realmente sul dischetto. Qualora 
esso non esista, il programma è in gra¬ 
do di riconoscere un errore del tipo 
FILE NOT FOUND e quindi di avver¬ 
tire l’utente con un apposito messag¬ 
gio. Il file destinazione viene aperto, 
cancellato e di nuovo aperto; tale mo¬ 
do di procedere evita spiacevoli so¬ 
vrapposizioni di informazioni che al¬ 
trimenti potrebbero verificarsi nello 
scrivere su un file già esistente. 

La prima stringa a essere scritta sul 
file destinazione, alla linea 420, con¬ 
tiene l’ordine LOAD per caricare in 
memoria il programma principale sul 
quale inserire le frasi DATA. Il suo 
nome è contenuto nella variabile alfa- 
numerica P$. 

Le stringhe che vengono successiva¬ 
mente scritte nel file destinazione con¬ 
tengono le frasi DATA, precedute dal 
numero di riga, contenenti cinque va¬ 
lori numerici. L’incremento dei nume¬ 
ri di riga è stato fissato a 10, mentre il 
numero di valori numerici per ogni 
frase DATA a 5; nulla vieta però di 
alterare a piacere questi due valori 


LISTATO 3. CREA FRASI DATA 


100 REM ======== = ======= = = 

118 REM = CREA FRASI 'DATA' = 

128 REM 

138 REM 

140 REM ALBERTO STEINDLER 19.09,1984 
158 REM 

148 REM-GESTIONE ERRORI 

170 REM MANUALE APPLESOFT PAG.134 
185 FOR I = 0 TO 18: READ J: POKE 748 4 1,J S NEXT I 
190 DATA 104,148,184,144,223,154,72,152,72,94,0 
280 GNERR GOTO 488 

210 REM - 

228 D* = CHR* (4) 

238 REM-INGRESSO NOMI FILE E PROGRAMMA 

245 TEXT : HOME 

255 VTAB 23: HTAB 18: PRINT B < RETURN > PER USCIRE" 

245 VTAB 5: INPUT B NOME DEL FILE DATI : B ;F* 

275 IF F* = BB THEN HOME : END 

285 VTAB 8: INPUT 1 NOME DEL PROGRAM : B ;P* 

295 IF P* = BB THEN HOME : END 
308 FOR K = 8 TO 1 

315 VTAB 11: INPUT B NUMERO DI RIGA INIZIALE : B ;NI 
328 K = ((NI > = 0) * (NI < = 43999) * (NI = INT (NI))) 
330 NEXT K 

348 REM - SCRITTURA EXEC FILE 

350 FU = F* 4 \EX B 

348 PRINT D* B VERIFY B F*: REM MEDI SE C'E' 

370 PRINT D* B 0PEN B F* 

388 PRINT D* B 0PEN B F1* 

390 PRINT D* B DELETE B F1*: REM POTEVA GIÀ' ESISTERE 
488 PRINT D* B 0PEN B F1* 

418 PRINT D* B URITE B F1* 

428 PRINT B L0AD B P* 

438 L = - 1 
448 L = L 4 1 

458 DA* = STR* (NI 4 10 * L) 4 *DATA B 
440 FOR I = 1 TO 5 
470 PRINT D* B READ B F* 

488 INPUT N 
490 N* = STR* (N) 

580 DA* = DA* 4 N$ 4 
518 NEXT 1 

525 DA* = LEFT* (DA*, LEN (DA*) - 1) 

538 PRINT D* B URITE B F1* 

540 PRINT DA* 

558 GOTO 448 
548 END 

578 REM-ATTENDI UN TASTO 

585 VTAB 23: HTAB 25: PRINT B < TASTO > B ;: GET A*: PRINT A* 





















590 RETURN 

688 REM- 

618 REM - GESTIONE ERRORI - 

620 REM - 

635 CALL 768 

645 ER = PEEK (222): REM CODICE ERRORE 

655 LI = PEEK (218) ♦ 256 * PEEK (219): REM LINEA 

668 IF ER = 4 THEN 730 

678 IF ER = 5 THEN 790 

680 IF ER = 6 THEN 888 

695 IF ER = 254 THEN RÉSUMÉ : REM BAD INPUT RESPONSE 
785 IF ER = 255 THEN HOME : END : REM CTRL-C INTERRUPTED 
715 HOME : VTAB 22: PRINT "ERRORE ";ER; B LINEA B ;LI 
728 END 

738 REM-URITE PROTECTED 

748 PRINT D* 

755 HOME 

765 UTAB 2: PRINT B IL DISCO E' PROTETTO CONTRO LA SCRITTURA ,,B 
775 VTA8 4: PRINT "TOGLI L y ADESIVO" 

785 GOSUB 578: RÉSUMÉ 

798 REM-END OF DATA 

885 IF RIGHTI (DAI,4) = B DATA B THEN 848 
815 DAI = LEFTI (DAI, LEN (DAI) - 1) 

820 PRINT DI B URITE B F1I 
830 PRINT DAI 
848 PRINT DI-CLOSE-FI 
858 PRINT DI B CLOSE B Fll 
860 PRINT DI"EXEC"F11 
878 END 

888 REM-FILE NOT FOUND 

890 PRINT DI 
985 HOME 

915 VTAB 2: PRINT B IL FILE B ;FI; B NON E' SUL DISCO ,,B 
928 GOSUB 585: RUN 


modificando rispettivamente le linee 
450 e 460. 

Il programma continua a costruire 
stringhe di frasi DATA contenenti 
cinque valori fintanto che, non essen¬ 
doci più dati nel file sorgente, si gene¬ 
ra un errore END OF DATA, il quale 
fa passare il controllo del programma 
alla routine di gestione dell’errore alla 
linea 600. Questo modo di procedere 
ci è permesso grazie all’uso dell’istru¬ 
zione ONERR, alla linea 200, che per¬ 
mette, in caso di errore, di non far 
fermare il programma, bensì di proce¬ 
dere tramite una routine di gestione di 
tale errore. Nel nostro caso troviamo 
alla linea 600 la routine in questione. 

La linea 635 fa eseguire un breve 
programma in linguaggio macchina, 
precedentemente inserito in memoria 
dal gruppo di istruzioni dalla 160 alla 
190. Il suo scopo è, come spiegato a 
pag. 136 del Manuale di riferimento del 
BASIC APPLESOFT, quello di rime¬ 
diare ad alcune deficienze nella gestio¬ 
ne dell’errore mettendo a posto i pun¬ 
tatori di ritorno nello stack dell’ AP¬ 
PLE IL 

A questo punto, per saper cosa fare, 
il programma deve conoscere il tipo di 
errore che si è verificato. A tale scopo 
è sufficiente andare a leggere con un 
PEEK la locazione di memoria nume¬ 
ro 222 nella quale si trova un valore 
numerico che rappresenta il tipo di er¬ 
rore verificatosi. Per sapere a che linea 
di programma tale errore si sia verifi¬ 
cato si leggono invece le locazioni 118 
per il byte basso e 119 per il byte alto. 

Gli errori che abbiamo preso in con¬ 
siderazione nel nostro programma so¬ 
no: 


WRITE PROTECTED 

codice: 4 

END OFDATA 

codice: 5 

FILE NOT FOUND 

codice: 6 

BAD INPUT RESPONSE 

codice: 254 

CTRL-CINTERRUPT 

codice: 255 


In ognuno di questi casi il programma 
agisce in maniera differente, avvisan¬ 
do l’utente nel caso di errore di tipo 4 o 
6, interrompendo l’esecuzione nel ca¬ 
so 255, riproponendo l’INPUT nel ca¬ 
so 254 o concludendo il programma 
nel caso di errore di tipo 5. In quest’ul¬ 
timo caso infatti i due file vengono 
chiusi e il file destinazione viene fatto 
eseguire con il comando EXEC. A 
questo punto ci ritroveremo in memo¬ 
ria il PROGRAMMA PRINCIPALE 
contenente le desiderate frasi DATA. 

Alberto Steindler 
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INSISTENZA 

TÈCNICA 

ENCODEX 


ENCODEX 

ENCODEX 



è ASSISTENZA TECNICA per il Vostro 
Personal Computer APPLE 

è la prima società indipendente di 
ASSISTENZA TECNICA in Italia 


ENCODEX 


ENCODEX 


ENCODEX 


ENCODEX 


è l’unica organizzazione autorizzata 
da APPLE per 1 ASSISTENZA TECNICA 
IN LOCO su tutto il territorio nazionale 

Vi propone il servizio IN LOCO 
su tutto il territorio nazionale 
con tempestività d’intervento 
ovunque esso venga richiesto 

è ASSISTENZA TELEFONICA: 
il servizio permette di risolvere le Vostre 
difficoltà tecniche anche al telefono 

è ASSISTENZA TECNICA 24 ORE: 
la nostra segreteria telefonica è operativa 
per 24 ore sette giorni su sette. 



E.H.S. 


encodex hardware Service s.r.l. 


sede: milano, via padova, n. 38 
tei. 28.71.612 rie. aut. 5 linee 
telex: encsat - I 322268 


^ipplG 

assistenza autorizzata 
in loco 
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a cura del professor Enzo Tonti 

In un precedente articolo (Applicando n. 9 ), abbiamo introdotto 
la tecnica dell’animazione tramite un programma sulla traslazione e 
la rotazione di un oggetto su di un piano. L’intento è ora di spostarci dal 
mondo bidimensionale a quello tridimensionale. 

E’ un passo molto importante, in quanto ci permette di rappresentare 
gli oggetti così come noi li vediamo. E non è neppure molto complicato... 


DOS 3.3 
IH% ProDOS 
111% APPLE Ih 
111% APPLE Ih 


Animazione 


di una rotazione 
tridimensionale 


L a tecnica dell’animazione non va¬ 
ria nel passare da due a tre dimen¬ 
sioni; i comandi visti in precedenza 
(Applicando n. 9) riguardano le pagi¬ 
ne grafiche, non il tipo di figura che vi 
è disegnata sopra. Il problema è inve¬ 
ce posto dalla rappresentazione grafi¬ 
ca dell’oggetto. Per averla corretta, si 
deve necessariamente fare uso della 
prospettiva; proprio questa sarà la pri¬ 
ma tecnica che introdurremo. 

La seconda tecnica nasce dal pro¬ 
blema delle linee nascoste. Se guardia¬ 
mo un oggetto che non sia trasparente, 
ad esempio un cubo di legno, non ve¬ 
diamo gli spigoli nascosti dalle facce 
anteriori. Per non farli vedere nemme¬ 
no nella rappresentazione grafica, si 
ricorre a una tecnica che, pur non es¬ 
sendo valida per qualunque oggetto, 
lo è per quelli convessi. Il cubo è uno 
di questi ultimi, ed è appunto quello 
che rappresenteremo nel programma 
che seguirà. Prima di iniziare con le 
spiegazioni, voglio ricordare che pure 
questo programma è stato dotato degli 
accorgimenti per la traducibilità usati 
nell’articolo precedente. Inoltre, ho 
scelto i seguenti simboli differenziati 
per evidenziare i REMarks: 

simboli - parte indicante 

“ & ” - intestazione 
“ * ” - fine del programma 
“ / ” - programma principale 
“ $ ” - sottoprogrammi 
“ — ” - divisioni interne delle 2 
parti appena menzionate 
“ + ” - istruzioni, parametri 
e DATA 



Figura 1. Sistema di riferimento 
per le coordinate dei cubo. 


Questa suddivisione dei simboli può 
sembrare al primo momento artificio¬ 
sa, ma permette di individuare con 
precisione e rapidità la funzione delle 
varie parti del programma. 

Ora descriviamo le due tecniche pri¬ 
ma enunciate; di seguito daremo 
un’ampia spiegazione del programma. 
Cominciamo con la prospettiva. Os¬ 
serviamo come è disposto il sistema di 
riferimento che è stato scelto per il 
cubo nel programma. Si consulti la fi¬ 
gura 1 . Le coordinate della figura ven¬ 
gono date con il centro della stessa 
supposto coincidente con quello del 
sistema di riferimento cartesiano xyz. 
Come schermo grafico (la nostra pagi¬ 
na grafica), sul quale vogliamo rappre¬ 
sentare l’oggetto, viene scelto un rita¬ 
glio del piano yz individuato dal siste¬ 
ma di riferimento appena visto; il cen¬ 
tro O dello stesso e quello dello scher¬ 
mo coincidono. Parametro fondamen¬ 


tale per una corretta rappresentazione 
prospettica è la posizione dell’osserva¬ 
tore rispetto allo schermo. 

Per rendere più comprensibili le for¬ 
mule che spiegheremo, nel program¬ 
ma ho vincolato tale posizione alla 
parte positiva dell’asse x del sistema di 
riferimento, a una distanza dal centro 
che può variare tra 400 e 50.000 unità 
di lunghezza (ricordiamo che l’asse x è 
ortogonale allo schermo). 

Facciamo riferimento alla figura 2. 
O' è l’osservatore, O il centro dello 
schermo, P un punto dell’oggetto; P', 
ottenuto trovando l’intersezione tra lo 
schermo e la retta congiungente O' e 
P, è la rappresentazione prospettica di 
P. Il nostro problema è, conosciute le 
coordinate di P nel suo sistema di rife¬ 
rimento, e conosciuta la distanza del¬ 
l’osservatore O', trovare le coordinate 
grafiche di P'. 

A tale proposito, ricordiamo le due 
possibili disposizioni dei sistemi di ri¬ 
ferimento grafici dei calcolatori. Una 
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è con l’origine nell’angolo sinistro al¬ 
to, e asse y rivolto verso il basso (Ap¬ 
ple, CBM, ecc.), l’altra ha l’origine 
nell’angolo sinistro basso, e asse y ri¬ 
volto verso l’alto. 

Riferiamoci dapprima ai due assi y e 
z del sistema di riferimento della figu¬ 
ra. Per come abbiamo scelto le rispet¬ 
tive disposizioni, essi giacciono sullo 
schermo. Allora possiamo calcolare la 
posizione di P' rispetto a questi due 
assi, e poi riportarla nelle coordinate 
proprie della grafica del calcolatore. 

Giacendo sullo schermo, la coordi¬ 
nata x di P' è zero. Calcoliamone la y, 


chiamandola YP'. Per fare questo 
consideriamo la figura 3. D è la distan¬ 
za dell’osservatore O' da O, XP ed YP 
rispettivamente l’ascissa e l’ordinata 
di P nel sistema di riferimento della 
figura. Per la similitudine dei due 
triangoli O'QP ed O'OP', si può scri¬ 
vere la seguente proporzione: 


D : YP' = (D - XP) : YP 


dalla quale: 


YP' = D * YP / (D - XP) 

Calcoliamo ora la z di P', chiaman¬ 
dola ZP'. Per fare questo consultiamo 
la figura 4. Anche qui, per la similitu¬ 
dine tra i triangoli O'RP ed O'OP', si 
può scrivere: 

D : ZP' = (D - XP) : ZP 
da cui: 

ZP' = D * ZP / (D - XP) 

A questo punto è possibile calcolare 
le coordinate nel sistema di riferimen¬ 
to grafico del calcolatore. Indicate con 



XC ed YC le coordinate del centro O 
rispetto a questo sistema, si ha: 


HP' = XC + YP' 
VP' = YC + ZV 51 


ZP' 


In queste formule HP' è l’ascissa di 
P', VP' la sua ordinata; nella seconda 
delle due, ZP' è moltiplicato per ZV. 
Questo ZV è il parametro visto nel¬ 
l’articolo precedente; assume i valori 
di 1 o —1 a seconda che l’asse delle 
ordinate sia rivolto verso l’alto o verso 
il basso. 

Nel programma sono state usate no¬ 
tazioni un po’ diverse; ad HP' e VP' 
corrispondono P(K) e Q(K), ad XP, 
YP e ZP invece X(K), Y(K) e Z(K) ; K 


100 REM versione per Apple II 

110 REM 
120 REM 
130 REM 

140 REM ANIMAZIONE DI UNA ROTAZIONE TRIDIMENSIONALE 

150 REM 
160 REM 
170 REM 

180 REM di Paolo Battista 

190 REM 

200 GOTO 8030: REM YA AL PROGRAMMA PRINCIPALE 
500 REM 

510 rem nmmmmn 

520 REM 

530 REM SOTTOPROGRAMMI 

540 REM 

550 rem mmnnmm 

560 REM 

1000 REM —-.-. 

1010 REM CALCOLO DELLA ROTAZIONE 

1012 REM--- 

1020 C = COS (A):S = SIN (A) 

1035 0N R GOTO 1050,1120,1180 

1040 REM ROTAZIONE ATTORNO ALL'ASSE X 

1050 FOR K = 1 TO N 


1060 XOO = XNOO 

1070 Y(K) = YNOO * C - ZN(K) * S 

1080 ZOO = YNOO * S + ZNOO » C 

1090 NEXT K 

1100 GOTO 1240 

1110 REM ROTAZIONE ATTORNO ALL'ASSE Y 
1120 FOR K = 1 TO N 

1130 XOO = C * XNOO * S * ZNOO 
1140 YOO = YNOO 

1150 ZOO = - S * XNOO + C * ZNOO 

1160 NEXT K 

1170 GOTO 1240 

1180 FOR K = 1 TO N 

1190 REM ROTAZIONE ATT ORNO ALL'ASSE Z 

1200 X(K) = XNOO * C - YNOO * S 

1210 YOO = XNOO * S ♦ YNOO * C 

1220 ZOO = ZNOO 

1230 NEXT K 

1240 FOR K = 1 T0 8 

1250 XNOO = XOO :YNOO = YOOiZNOO = ZOO 

1260 REM INGRANDISCE LA FIGURA DEL FATTORE DI SCALA T 

1270 IF T < 0 THEN T = 0 

1280 XOO = T * XOO :YOO = T * YOO:ZOO = T * ZOO 
1290 NEXT K 

1300 SOSUS 2010: RETURN Continua 


86 



































Figura 5. Prodotto vettoriale. 


indica il numero del vertice della figu¬ 
ra del quale si stanno calcolando le 
coordinate. Si hanno così le seguenti 
formule: 


2220 P(K) = XC + D * Y(K) / (D - 
X(K)) 


2240 Q(K) = YC + D * Z(K) * ZV / 
(D - X(K)) 


Spiegheremo ora la seconda tecni¬ 
ca, quella per le linee nascoste. Lo 
stratagemma qui sta nell’associare a 
ogni faccia del cubo un vettore per¬ 
pendicolare alla stessa e rivolto verso 
l’esterno del corpo. Ricordando come 
è stato scelto l’asse x del sistema di 
riferimento, ortogonale allo schermo 
e con il verso positivo rivolto verso 
l’osservatore che si trova sull’asse stes¬ 
so, possiamo trarre le seguenti conclu¬ 
sioni. Se la faccia del cubo è visibile, il 
vettore, che allora è rivolto dalla parte 
dell’osservatore, ha la componente 
lungo l’asse delle x positiva. Se invece 
la faccia del cubo non è visibile, tale 
componente è negativa. 

Abbiamo dunque trovato un preci¬ 
so criterio col quale stabilire se le facce 
del cubo sono visibili oppure no. Fare¬ 
mo tracciare una faccia se e solo se il 
vettore associato alla stessa ha la com¬ 
ponente x positiva. Rimane da cercare 
un metodo per associare a ogni faccia 
un vettore che goda delle proprietà 
sopra viste. 

Esaminiamo le proprietà del pro¬ 
dotto vettoriale tra due vettori generi¬ 
ci. Se questi sono U e V, il modulo 
(“lunghezza ” del vettore) di tale pro¬ 
dotto è U * V * ABS (SIN (PHI)), 
indicando con PHI l’angolo orientato 
formato dalle direzioni dei due vetto¬ 
ri. La direzione del vettore prodotto è 




2000 REM-- 

2010 REM CALCOLA I VETTORI 

2012 REM -.-. 

2020 F0R K = 1 T0 3 


2030 

YV(K 4 

4,K) = 

Y(K * 4) - Y(K):ZV(K 4 

4,K) = Z(K 4 4) 

- Z(K) 

2040 

YV(K + 

1,K) = ' 

Y(K 4 1) - Y(K):ZV(K 4 

1,K) = Z(K 4 1) ■ 

- Z(K) 

2050 

NEXT K 






2060 

YV< 8,4) 

= Y(8) 

- Y<4):ZV<8,4) = 

2(8) 

- Z(4) 


2070 

MI, 4) 

= Y(l) 

- Y(4):ZV<1,4) = 

Z(l) 

- Z ( 4) 


2080 

YV< 3,4) 

= Y(3) 

- Y(4):ZV(3,4) = 

Z(3) 

- Z(4) 


2090 

YV< 5,8) 

= Y<5) 

- Y(8):ZV<5,8) = 

Z(5) 

- Z(8) 


2100 

YV< 7,8) 

= Y(7) 

- Y(8):ZV(7,8) = 

Z(7) 

- Z(8) 



2110 REM - 

2120 REM CALCOLA I PRODOTTI VETTORIALI (SOLO LA C0MP. X ) 


2122 REM - 

2130 F0R K = 1 T0 3 

2140 V(K> = YV(K + !,K> * ZV(K + 4,K) - YV(K 4 4,K> * ZV(K 4 1,K) 

2150 NEXT K 

2160 V<4) = YV(1,4) * 2V<8,4) - YV(8,4) * 2V<1,4) 

2170 V(5) = YV(5.9ì * ZV<7,8) - YV<7,8) * ZV<5,8) 

2180 V(6) = YV(3,4) * MI ,4) - YV<1,4) * ZV<3,4) 

2190 REM - 

2200 REM CALCOLA I PUNTI PER LA GRAFICA 

2202 REM - 

2210 F0R K = 1 T0 8 

2220 P(K) = XC 4 D * Y(K) / (D - X(K» 

2235 IF PUÒ < 0 OR P(K) > IH THEN TEXT ! HOME : PRINT D*: GOTO 3100 

2240 QUO = YC + D * ZOO * ZV / (0 - XUO) 

2255 IF Q(K) < 0 OR QUO > VM THEN TEXT : HOME : PRINT D*: GOTO 3100 

2260 NEXT K 

2270 REM-- 

2280 REM DISEGNA IL CUBO 

2282 REM . 

2295 POKE 230,32 MI 4 IN): CALL 62450: HC0L0R= 3 
2300 F0R K = 1 T0 3 

2315 IF V(K) > 0 THEN HPL0T P(K),Q(K) T0 P(K 4 l) f Q<K 4 1) T0 P(K 4 5),G( 
K 4 5) TO P(K 4 4),Q(K 4 4) T0 PUÒ,QUO 
2320 NEXT K 

2335 IF V(4) > 0 THEN HPL0T P(4),Q(4) T0 P(1),Q(1) T0 P(5),Q(5) T0 P(8),Q 
(8) T0 P(4),Q<4) 

2345 IF V(5) > 0 THEI4 HPL0T P(5),Q(5) T0 P(6),Q(6) T0 P(7),Q(7) T0 P(8),Q 
(8) TO P(5),Q(5) 

2355 IF V(6) > 0 THEN HPLOT P(1),Q(1) T0 P(2),Q(2) T0 P(3),Q(3) T0 P(4),Q 
(4) T0 P(l),Q(1) 

2365 POKE 49236 4 1N,0 
2370 RETURN 

3000 REM . 

3010 REM USCITA DAL PROGRAMMA 

3012 REM - 

3025 TEXT : HOME 

3030 PRINT "SE VUOI TERMINARE PREMI (E)' 

3040 PRINT : PRINT 'SE IWECE VUOI SCEGLIERE Uff'ALTRA' 

3050 PRINT 'DISTANZA PREMI <C>' 

3065 GET B$ 

3070 IF B* = 'E' THEN GOTO 9010: REM FINE DEL PROGRAftIA 
3080 IF B$ = "C THEN 3100 

3090 GOTO 3065 (continua 
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scuola 



3100 INPUT 'NUOVA DISTANZA (400 - 50000) ?';B$ 

3115 D = VAL <B$> 

3120 IF D < 400 OR D > 50000 THEN 3100 
3130 DO = 1 

3145 RESTORE ; GOTO 8090 
5000 REM ++++4++++++ 

5010 REM PARAMETRI 
5012 REM +++++++++++ 

5020 IN = 1: REM INDICATORE DELLA PAGINA GRAFICA 
5030 A = .3: REM ANGOLO DI ROTAZIONE INIZIALE 
5040 N = 8: REM NUMERO DI VERTICI DELLA FIGURA 
5050 T * 1.6: REM FATTORE DI SCALA INIZIALE 
5060 W = 'SEI ANDATO FUORI DAL CtflPO GRAFICO !' 

5075 NH = 280: REM NUMERO DI ASCISSE 

5085 W = 192: REM NUMERO DI ORDINATE 

5090 HM = NH - 1 :W = NV - 1 

5105 ZV = - 1: REM INDICATORE DELLA DIREZIONE DELL'ASSE DELLE ORDINATE 
5110 YO = (1 - ZV) / 2 * W 

5120 XC = HM / 2:YC = YO + ZV * INT / 2): REM COORDINATE DEL CENTRO D 

ELLO SCHERMO 
5130 RETURN 
6000 REM +++++++++♦♦+ 

6010 REM ISTRUZIONI 
6012 REM +++++♦++++++ 

6025 TEXT : HOME 

6030 PRINT "PER LE ROTAZIONI:' 

6040 PRINT : PRINT 'ASSE X - PREMERE X' 

6050 PRINT 'ASSE Y - PREMERE Y" 

6060 PRINT 'ASSE Z - PREMERE Z' 

6070 PRINT : PRINT 'PER AUMENTARE IL PASSO DI ROTAZIONE PREMERE P, PER 

DIMINUIRLO Q' 

6080 PRINT : PRINT 'PER INGRANDIRE LA FIGURA PREMERE <+>, PER RIMPICCIOL 
IRLA <->' 

6090 PRINT : PRINT 'PER VISUALIZZARE LE ISTRUZIONI <I>' 

6105 GET A$: HOME 

6115 POKE 49239,0: POKE 49232,0: POKE 49236 + (1 - IN),0 
6120 RETURN 
8000 REM 

8010 REM ////////////////////// 

8020 REM 

8030 REM PROGRAMMA PRINCIPALE 
8040 REM 

8050 REM ////////////////////// 

8060 REM 

8075 LQMEM: 24576: REM STABILISCE IL PUNTO D'INIZIO DELLE VARIABILI DEL P 
ROGRtfttt 

8085 TEXT : HOME 

8090 GOSUB 5010: REM PARAMETRI 

8100 GOSUB 6010: REM ISTRUZIONI 

8105 TEXT : HOME 

8110 IF DD = 1 THEN 8240 

8120 REM - 

8130 REM RICHIESTA DELLA DISTANZA DELL'OSSERVATORE 

8132 REM - 

8140 PRINT "DISTANZA DALL'ORIGINE : 400 - 50000" 

8155 HTAB 23: PRINT ": DEFAULT 1000" 

8160 INPUT B$ Continua 


quella ortogonale alle direzioni di U e 
V, mentre il verso è tale che i tre vetto¬ 
ri formino, nell’ordine U, V e vettore 
prodotto, una terna antioraria. Tutto 
ciò è rappresentato in figura 5. 

Due precisazioni: terna antioraria 
significa che un osservatore posto soli¬ 
dalmente con la direzione di U * V 
deve veder ruotare U verso V in dire¬ 
zione antioraria. Quando ciò avviene, 
si assume come verso del vettore quel¬ 
lo che va dai piedi alla testa dell’osser¬ 
vatore. La seconda riguarda il signifi¬ 
cato di verso di un vettore. Immaginia¬ 
mo che Torino e Milano siano gli 
estremi del vettore considerato; la sua 
direzione è rappresentabile come la 
retta congiungente le due città, o una 
qualsiasi altra retta ad essa parallela. 
Tale retta può però essere percorsa in 
due sensi, da Milano a Torino, oppure 
viceversa; è appunto questo il signifi¬ 
cato di verso. 

Immaginiamo ora di scegliere in 
modo opportuno due lati di una faccia 
del cubo, e di eseguirne il prodotto 
vettoriale. Consultiamo la figura 6. 
Considerando BC e BA vettori orien¬ 
tati come in figura, ed eseguendone il 
prodotto vettoriale nell’ordine BC * 
BA, si ottiene esattamente un vettore 
dalle caratteristiche che volevamo. 

Il procedimento allora è questo: per 
ogni faccia si scelgono due lati oppor¬ 
tuni in modo da ottenere il vettore 
cercato come loro prodotto vettoriale. 
Di tale vettore c’interessa sapere la 
sua componente rispetto l’asse x. Per 
trovarla si ricorre al seguente determi¬ 
nante simbolico: 


ijk 


x y z = (yz' - zy')i + (zx' — z'x)j + 
(xy' - x'y)k 


x' y' z' 


qui i, j e k sono rispettivamente i tre 
vettori degli assi x, y e z del sistema di 
riferimento considerato; X, Y e Z so¬ 
no le componenti rispetto ai tre assi 
del primo lato pensato come vettore, 
X', Y' e Z' sono quelle del secondo. 
Come risultato dell’operazione che 
compiamo si può dire di ottenere U * 
V come somma di tre vettori, ciascuno 
parallelo a uno dei tre assi. Esaminia¬ 
mo il primo dei tre: (Y * Z' - Y' * Z) * 
i; è parallelo all’asse x, dunque la sua 
componente rispetto tale asse è pro¬ 
prio Y * Z' - Y' * Z. Inoltre, i due 
rimanenti vettori sono paralleli agli as- 
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Figura 6. Vettore associato alla 
faccia del cubo. 


si y e z rispettivamente; essendo stata 
scelta ortogonale la terna cartesiana di 
riferimento, le loro componenti x sono 
nulle. Dunque la componente dell’in¬ 
tero prodotto vettoriale è espressa da 
Y * Z' - Y' * Z. E’ questo il calcolo da 
fare per trovare la componente che ci 
interessa; quando sarà positiva, fare¬ 
mo tracciare la faccia, quando sarà ne¬ 
gativa, no. 

Ancora una precisazione sul calcolo 
delle componenti dei lati pensati come 
vettori. Come si è appena visto, la loro 
componente x non influisce sul calcolo 
che si ha da fare. Possiamo allora non 
calcolarla del tutto, in modo da rispar¬ 
miare tempo nell’esecuzione del pro¬ 
gramma. Per le componenti y e z, rife¬ 
riamoci alla figura 6 per capire come 
calcolarle; immaginiamo che siano 
quelle del vettore BC a servirci. Indi¬ 
chiamo con YC, ZC ed YB, ZB le 
coordinate y e z di C e B rispettiva¬ 
mente. Allora le componenti del vet¬ 
tore BC, orientato come in figura, ri¬ 
spetto agli assi y e z, sono: YC — YB , 
ZC - ZB , cioè le differenze delle 
coordinate dei due estremi. La stessa 
cosa si ripete per il lato B A, e per tutti 
gli altri lati che ci servono nel calcolo 
dei vettori. Ora si hanno tutti gli ele¬ 
menti necessari a capire il programma 
che vi illustrerò. 

Come il programma dell’articolo 
precedente, anche questo è diviso in 
programma principale e sottopro¬ 
grammi. Qui, però, ho scelto di porre 
ai numeri di etichetta più bassi i sotto¬ 
programmi, e alla fine di questi il pro¬ 
gramma principale. Tale scelta, come 
già detto, è motivata dal fatto che i 
richiami con le istruzioni GOSUB ri¬ 
sultano essere così più veloci. 

Esaminiamo prima i sottoprogram¬ 
mi e le loro funzioni, poi vedremo co¬ 
me e in che ordine essi vengono richia¬ 
mati dal programma principale. Il pri¬ 
mo sottoprogramma spazia dall’eti¬ 
chetta 1010 alla 1300. Il suo compito è 
di calcolare i trasformati dei vertici del 
cubo dopo la rotazione. Le formule 
usate sono le stesse del programma 


precedente; qui ce ne sono però tre, in 
quanto tre sono gli assi attorno ai quali 
la figura può ruotare. 

Il secondo sottoprogramma calcola 
invece tutto quanto è necessario per il 
tracciamento del cubo; va dall’etichet¬ 
ta 2010 alla 2370, ed è suddiviso come 
segue. Prima di tutto calcola i vettori 
per i successivi prodotti vettoriali; tale 
parte va dalla 2010 alla 2100; le formu¬ 
le usate sono quelle già spiegate in 
precedenza. Subito dopo (2120 - 
2180), calcola i prodotti stessi. Anche 
qui non c’è altro da dire sulle formule 
che abbiamo già visto. 

Dalla 2200 alla 2260 abbiamo il cal¬ 
colo delle coordinate grafiche per il 
tracciamento della figura. Le formule 
usate sono quelle spiegate per la pro¬ 
spettiva. Inoltre, alle etichette 2235 e 
2255, abbiamo delle protezioni contro 
lo sconfinamento dal campo grafico. 
Se si esce dallo stesso, il programma, 
anzicchè bloccarsi, comunica la situa¬ 
zione e chiede una nuova distanza per 
ricominciare. 

Dalla 2280 alla 2370 abbiamo il trac¬ 
ciamento della figura, con il consueto 
sistema dell’animazione. Per ogni fac¬ 
cia si controlla, con un’istruzione 
IF, .THEN, che la componente x, indi¬ 
cata con V(K), del vettore associato 
sia positiva; solo se tale condizione è 
verificata la faccia viene tracciata, al¬ 
trimenti si passa all’ esame della suc¬ 
cessiva. 

Terzo sottoprogramma è la parte ri¬ 
guardante l’uscita dal sottoprogram¬ 
ma stesso. Permette di scegliere fra 
terminare e tra una nuova distanza con 
la quale riprendere dall’inizio. Si basa 
sulla richiesta di un carattere da tastie¬ 
ra tramite un’istruzione GET; tale ca¬ 
rattere viene poi controllato e la con¬ 
dizione che risulta essere verificata 
viene eseguita. 

Altra particolarità è la richiesta del¬ 
la distanza; l’INPUT all’etichetta 3100 
è predisposto per ricevere una stringa. 
In questo modo, il numero battuto 
non è direttamente riconosciuto come 
tale, ma come una qualunque stringa 
di caratteri. L’istruzione successiva, 
all’etichetta 3115, assegna alla variabi¬ 
le D, questa volta numerica, il valore 
che avrebbe la stringa precedente se 
fosse interpretata come numero. 
Cioè, se B$ è “ 1234 ”, allora è: D = 
VAL (“ 1234 ”) = 1234. 

In tutto il programma ho cercato di 
ridurre al minimo le istruzioni GOTO, 
solitamente confusionarie, specie per 
chi tenta di capire un programma mai 
visto prima. In particolare, per i salti 
da programma principale a sottopro¬ 
grammi, e tra sottoprogrammi stessi, 


ho cercato di usare esclusivamente 
istruzioni GOSUB, limitando i GO¬ 
TO ai salti interni a tali parti di pro¬ 
gramma. 

L’unica eccezione l’ho fatta in que¬ 
st’ultimo sottoprogramma che ho illu¬ 
strato. Nello stesso ci sono due istru¬ 
zioni GOTO che rimandano a istruzio¬ 
ni esterne allo stesso. La prima si trova 
all’etichetta 3070, e manda alla 9010, 
cioè al termine del programma. Tale 
salto si poteva benissimo evitare, po¬ 
nendo ad esempio: 


3070 IF B$ = ' E ' THEN HOME : 
END 


Ho preferito invece seguire il principio 
di porre un solo END in tutto il pro¬ 
gramma, ben evidenziato in modo da 
essere subito individuabile. 

Il secondo GOTO si trova alla 3145. 
Qui il problema è diverso; si vuole 
ricominciare daccapo il programma 
senza uscirne e dover dare un secondo 
RUN. In tal caso, è impossibile farlo 
semplicemente partire dalla prima 
istruzione del programma principale. 
Tale impossibilità è data da questi due 
motivi: il primo è il dimensionamento 
già avvenuto delle variabili; un succes¬ 
sivo dimensionamento l’Apple lo in¬ 
terpreta come errore. L’altro è la let¬ 
tura delle coordinate iniziali tramite 
un ciclo READ. .DATA. Se non viene 
data l’istruzione RESTORE, il calco¬ 
latore segnala un errore del tipo 
'END OF DATA ' (fine dei dati a 
disposizione). Risolto quest’ultimo 
problema, per il primo ho posto sem¬ 
plicemente uguale a uno la variabile 
DD. Il successivo GOTO rimanda al¬ 
l’etichetta 8090 del programma princi¬ 
pale; alla 8110 ho così posto una condi¬ 
zione IF..THEN che, quando DD è 
pari a uno, fa saltare sia la richiesta 
della distanza, sia il dimensionamento 
delle variabili. 

Ai tre sottoprogrammi finora visti 
se ne aggiungono altri due un po’ par¬ 
ticolari. Il primo (etichette dalla 5010 
alla 5130) assegna tutti i parametri uti¬ 
lizzati nel programma. Li ho riuniti in 
un unico sottoprogramma per non ap¬ 
pesantire troppo la leggibilità del pro¬ 
gramma principale; esso viene comun¬ 
que utilizzato solo una volta all’inizio 
del programma oppure quando si rico¬ 
mincia con un’altra distanza. 

Si ricordi che alle etichette 5075 e 
5085 si deve porre rispettivamente il 
numero massimo di ascisse e di ordina¬ 
te disponibili sul proprio calcolatore. 

Per sistemi con grafica molto eleva¬ 
ta (600 * 400 pixels e più) è convenien- 
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scuola 



8170 IF B$ = " THEN 0 = 1000: GOTO 8225 
8185 D = VAL <B$) 

8190 IF D < 400 OR 0 > 50000 THEN 8160 

8200 REM - 

8210 REM DIMENSIONA LE VARIABILI 
8212 REM - 

8225 DIM X(8),Y<8),2(8),XN(8),YN(8),2N<8),P(8),Q<8>,XV(8,8),YV(8,8),2V(8,8 

) 

8230 REM.—-.- 

8240 REM PREPARA LE PAGINE GRAFICHE 

8242 REM - 

8255 POKE 230,32: CALL 62450: REM CANCELLA LA PRIMA PAGINA GRAFICA 

8265 POKE 230,64: CALL 62450: REM CANCELLA LA SECONDA PAGINA GRAFICA 

8275 POKE 49239,0: POKE 49232,0: POKE 49234,0: REM APRONO LE PAGINE GRAFI 
CHE 

8280 REM - 

8290 REM LEGGE LE COORDINATE 

8292 REM -. 

8300 FOR K = 1 TO N 
8315 READ X(K) ,Y(K),Z(K) 

8320 XN(K) = X(K) :YN(K) = Y(K):2N(K) = Z(K> 

8330 X(K) = T * X(K):Y(K) = T * Y(K):2(K) = T * Z(K): REM INGRANDISCE LA F 
IGURA 

8340 NEXT K 

8350 GOSUB 2010: REM TRACCIA LA FIGURA INIZIALE 

8360 REM - 

8370 REM CHIEDE I 'VALORI E CALCOLA I TRASFORMATI 

8372 REM - 

8380 IN = ! - IN 
8395 GET A$ 

8400 IF A* = 'X- THEN R = 1 : GOSUB 1010 

8410 IF A$ = T THEN R = 2: GOSUB 1010 

8420 IF A* = 'Z" THEN R = 3: GOSUB 1010 

8430 IF A* = , P" THEN A = A + .05 

8440 IF A* = -9- THEN A = A - .05 

8455 IF A* = CHR$ (27) THEN 3010: REM PREMUTO (ESC) 

8465 IF A* = CHR* (43) THEN T = T + .1:C = 1:S = 0: GOSUB 1035: REM PREM 

UTG <+> 

8475 IF A$ = CHR* (45) THEN T = T - .1:C = J:S = 0: GOSUB 1035: REM PREM 
UTO <-> 

8480 IF A$ = 'I* THEN GOSUB 6025 
8490 GOTO 8380 

9000 REM a»**#********#**#*#**** 

9010 REM TERMINE DEL PROGRAMMA 
9012 REM *********************** 

9025 HOME : END 

10000 REM 444444444444444444444444444444444 
10010 REM COORDINATE DEI VERTICI DEL CUBO 

10012 REM 444444444444444444444444444444444 

10025 DATA 19.26,8.93,-37.74,-18.15,35.2,-17.49,-42.15,-7.3,-6.68,-4.73,-3 
3.58,-26.93,42.15,7.3,6.68,4.73,33.58,26.93,-19.26,-8.93,37.74,18.15,- 
35.2,17.49 

10030 REM IN ALTERNATIVA COL DATA PRECEDENTE SI PUÒ' METTERE»IL SEGUENTE 
CHE MOSTRA IL CUBO NELLA POSIZIONE FRONTALE 
10045 DATA 25,-25,-25,25,25,-25,-25,25,-25,-25,-25,-25,25,-25,25,25,25,25, 
-25,25,25,-25,-25,25 


te maggiorare subito il fattore di scala 
T, in modo da ottenere una figura ini¬ 
ziale di dimensioni accettabili. Una 
particolarità di questo programma è di 
permettere un controllo diretto su 
questo fattore T. Premendo il tasto 
(+) esso risulterà aumentato, premen¬ 
do (-) sarà diminuito; è una cosa sem¬ 
plice da realizzare e d’effetto nello 
stesso tempo. 

Il secondo sottoprogramma (dalla 
6010 alla 6120) visualizza le istruzioni 
per il controllo delle rotazioni della 
figura; queste possono essere richia¬ 
mate in qualsiasi momento dell’esecu¬ 
zione del programma premendo il ta¬ 
sto (I), senza con questo dover rico¬ 
minciare dall’inizio le rotazioni. 

Ora possiamo passare all’esame del 
programma principale, piuttosto sem¬ 
plice. Comprende le istruzioni nume¬ 
rate da 8030 a 8490. Quando viene 
fatto partire, innanzittutto vengono 
letti i parametri; successivamente ven¬ 
gono visualizzate le istruzioni e richie¬ 
sta la distanza dell’osservatore dal 
centro della figura. Qui si vede l’utilità 
del porre il valore battuto come una 
stringa; si può così scegliere un certo 
valore di “default”, che viene assunto 
dalla distanza se invece di dare un cer¬ 
to numero si batte solamente il RE¬ 
TURN. Nel nostro caso, ho scelto co¬ 
me default il valore 1000, mentre il 
campo delle distanze può variare tra 
400 e 50000. 

Subito dopo vengono dimensionate 
le variabili, preparate le pagine grafi¬ 
che per la scrittura e lette le coordinate 
iniziali con il ciclo RE AD.. DAT A. 

Infine c’è la parte interattiva con i 
sottoprogrammi, cioè la parte per il 
controllo delle rotazioni della figura. 

Tutte queste ultime parti di pro¬ 
gramma sono praticamenta identiche 
a quelle corrispondenti del program¬ 
ma dell’articolo precedente. Se qual¬ 
cosa non fosse chiaro, si consultino le 
spiegazioni lì riportate. 

Un’ultima cosa: il programma è già 
steso in modo da funzionare corretta- 
mente anche se compilato con il com¬ 
pilatore TASK della MICROSOFT. 
A questo scopo si ricordi di porre il 
programma al di sopra della seconda 
pagina grafica, altrimenti esso risulte¬ 
rà mutilato dal cancellamento delle 
due pagine stesse. Chi possiede il com¬ 
pilatore farà anzi bene a usarlo; la ve¬ 
locità che così si ottiene è decisamente 
apprezzabile, rendendo le serie di ro¬ 
tazioni più rapide. Per quanto riguar¬ 
da la bibliografia si può benissimo con¬ 
sultare, se interessati, gli stessi libri 
consigliati nel precedente articolo. 

Paolo Battista 
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Cancellazione parziale 

Se volete posizionare delle scritte successive sulla 
stessa riga e di lunghezza differente usate, prima del 
comando PRINT, la seguente istruzione: HTAB n 
(posizione della riga) :CALL-868:PRINT"messag- 
gio". CALL-868 cancella tutti i caratteri dalla posizio¬ 
ne del cursore fino al termine della riga stessa (uguale 
al comando ESC E). 

Se invece il testo è scritto su diverse righe, sostituite 
CALL-868 con CALL-958 che cancella tutti i caratte¬ 
ri, compresi nella finestra di testo, dalla posizione 
attuale del cursore fino all’angolo inferiore destro 
dello schermo (uguale al comando ESC F). 

Messaggi VIP 

Volete dare una veste professionale alle vostre vi- 
deate di presentazione o ai messaggi necessari duran¬ 
te l’esecuzione di un programma? Usate le locazioni 
di memoria 32, 33, 34, 35 (in decimale) e avrete le 
vostre finestre. Le locazioni di memoria indicate ge¬ 
stiscono il margine sinistro, destro, alto, basso. Dove¬ 
te mantenere le prime tre righe di intestazione del 
programma durante la sua esecuzione? Battete PO- 
KE 34,3. Con il comando HOME si pulirà il video 
lasciando intatte le prime tre righe. 

Se invece volete scrivere nella parte alta dello scher¬ 
mo, usate POKE 35. Per ritornare a tutto video è 
sufficiente battere CTRL-RESET o, da programma, 
scrivendo nella locazione di memoria usata il suo 
valore originario: POKE 32,0:POKE 33,4:POKE 
34,0:POKE 35,24. 

I problemi col //c 

Il disco UTILITÀ’ DI SISTEMA fornito con il Ile 
permette di formattare i dischetti con tre diversi siste¬ 
mi operativi: PRODOS, DOS 3.3, PASCAL. Ricor¬ 
datevi che con i dischi così formattati non è tuttavia 
possibile fare il booting, cioè il programma contenuto 
in questi dischetti non riesce a girare, perché l’Apple 
non lo "legge". Ovvero i dischi così formattati non 
contengono il sistema operativo. E’ necessario, quin¬ 
di, all’accensione del computer, inserire un dischetto 
che contenga il sistema operativo con il quale voglia¬ 
mo lavorare. 

Per esempio, se avete uno dei dischetti che Applican¬ 
do offre in vendita, potete utilizzarlo per caricare il 
DOS 3.3. Solo dopo potrete inserire un dischetto 
dove avete, per esempio, salvato un programma fatto 
da voi o copiato dalle pagine di Applicando. I dischet¬ 
ti così formattati hanno comunque un vantaggio: 
maggiore spazio libero che si traduce in un numero 
maggiore di programmi che possono essere memoriz¬ 
zati nel medesimo dischetto. 

La tastiera del Macintosh 

Se utilizzate un programma tradotto in italiano con 
un Macintosh fornito di tastiera italiana, non ci sono 
problemi. Se invece utilizzate un programma ameri¬ 
cano, sempre con Macintosh fornito di tastiera italia¬ 
na, allora, quando cercherete di usare alcuni tasti, 
constaterete che a video non compariranno le lettere 


corrispondendi. 

Per esempio, se schiacciate la "N", a video comparirà 
la "B". Per ovviare all’inconveniente basta avere l’ac¬ 
cortezza di seguire questa procedura: accendete il 
Mac e inserite, come primo dischetto , un programma 
in italiano. 

Espellete il disco, senza nemmeno bisogno di usare il 
programma, e inserite il disco americano che avete 
intenzione di usare. Vedrete che non ci saranno più 
discordanze fra tastiera e video. 

Colpo di spugna 

Se durante la compilazione o il controllo di un 
programma vi trovate con il video pieno di caratteri e 
dovete ripulirlo con un sol colpo per poter provare o 
scrivere altre cose, potete farlo velocemente batten¬ 
do ESC-@ (segno di paragrafo), se avete il Ile. Men¬ 
tre chi ha il //e deve battere ESC-@ (chiocciolina), se 
ha attivato, per mezzo dell’apposito interruttore po¬ 
sto a destra sotto la tastiera, la tastiera americana. 
Deve invece battere ESC-@ (segno di paragrafo) se 
ha attivato la tastiera italiana. Funziona anche in 
monitor e in 80 colonne. 

Superveloce 

Se vi trovate nella necessità di dover spostare un 
blocco di dati in linguaggio macchina per sistemarli in 
un’altra area di memoria così che non interferiscano 
con un altro programma, andate in Monitor con 
CALL-151, battete il numero della locazione di inizio 
della nuova zona di memoria, aggiungete il segno di 
minore (<), quindi battete i numeri corrispondenti 
alle locazioni di inizio e di fine del blocco da spostare 
divise da un punto e il tutto seguito da M. Battete 
RETURN e il gioco è fatto. Esempio: dovete sposta¬ 
re un blocco di dati in memoria compreso tra 800 e 
3000 e volete memorizzarlo a partire dalla locazione 
di memoria 4000; battete 4000<800.3000M quindi 
RETURN. 

Difficile salvataggio 

Se avete scritto un programma in DOS 3.3 usando 
l’Apple Ile in 80 colonne, per salvarlo sul dischetto 
dovete prima ritornare in 40 colonne con CTRL- 
RESET, quindi potete battere SAVE e salvare il 
programma. Usando invece il Prodos, non esiste que¬ 
sto problema. Con l’Apple Ile si può usare tranquilla¬ 
mente il comando SAVE in 80 colonne sia con il DOS 
sia con il PRODOS. 

Tabulazione orizzontale 
Apple //e e //c 

L’Apple Ile in 80 colonne non riconosce un valore 
di HTAB maggiore di 40, quindi per le tabulazioni 
orizzontali è necessario usare POKE 1403,n dove n è 
il punto nel quale vogliamo posizionare un carattere 
(da 0 a 80). L’Apple Ile, in 80 colonne, riconosce sia il 
POKE 1403 sia HTAB con valori superiori a 40. 
Mentre per le tabulazioni sulla stampante, e solo su di 
essa, è utile usare POKE 36,n. 






lettere 


Apple pittore 

Recentemente ho digitato 
il programma APPLE PIT¬ 
TORE apparso sul n.7 e non 
sono riuscito a capire come 
fare a caricare le istruzioni, 
anche perché si fa riferimen¬ 
to al listato 3 che io non ho 
trovato. Inoltre, facendo ri¬ 
partire il programma, sullo 
schermo mi appare : ?OUT 
OF MEMORY ERRORE 
IN 2025. Inoltre voglio farvi 
presente che nel programma 
TOPOLINO apparso sul 
n.7 a pag. 27 manca il listato 
2 mentre il Listato 3 del pro¬ 
gramma ORGAN APPLE 
sul n.8 a pag. 54 non è in 
ordine di numero. Dopo va¬ 
rie ricerche sono riuscito a 
trovare il n.2 di APPLI¬ 
CANDO e ho iniziato a digi¬ 
tare il programma COSTI 
AUTO ma, arrivato alla li¬ 
nea 200 ho constatato che è 
troppo lunga e non viene ca¬ 
ricata. Come devo compor¬ 
tarmi? 

Sergio Colleoni 

Erbusco (BS) 

Il listato 3 del programma 
APPLE PITTORE è a pag. 
24 e contiene le istruzioni del 
programma stesso. Per cari¬ 
carle , come spiegato a pag. 
24, si può utilizzare un pro¬ 
gramma di scrittura tipo 
VAPPLE WRITER o altro 
simile, oppure usare il listato 
2 riportato a pag. 25 (e non il 
listato 3 come erroneamente 
scritto a pag. 24) e seguendo 
le istruzioni in calce alla stes¬ 
sa pagina. Per il problema 
dell’O UT OF MEMOR Y, le 
consigliamo di confrontare il 
listato che ha battuto, con 
quello della rivista, per eli¬ 
minare un eventuale errore 
in quanto noi non abbiamo 
registrato alcun inconve¬ 
niente. 

Programma TOPOLI¬ 
NO: i listati mancanti sono 
stati pubblicati a pag. 95 del 
n.8 nella rubrica lettere. 

Programma ORGAN 
APPLE: ha ragione. La co¬ 
lonna di sinistra del listato 3 
va scambiata con quella di 
destra. 

Programma COSTI AU¬ 
TO: per digitare righe più 


lunghe di 255 caratteri, come 
la linea 200, si può ricorrere 
a due soluzioni. Una, più 
drastica, consiste nello spez¬ 
zare la linea in due dopo un 
due punti e sempre prima di 
una istruzione IF. La secon¬ 
da soluzione consiste nello 
scrivere le istruzioni della li¬ 
nea senza lasciare spazi tra 
un carattere e il successivo, e 
sostituire Uistruzione 
PRINT con un punto inter¬ 
rogativo. L Apple provvede 
a sistemare gli spazi e a con¬ 
vertire il punto interrogativo 
nella parola PRINT e quindi 
accetta la linea più lunga. 
Inoltre è necessario correg¬ 
gere un errore che il LAST 
ONE commette nella prepa¬ 
razione di programmi e, pre¬ 
cisamente, alla linea 1650. 
L'uguaglianza IF E = 5 
AND L> = 5E4 THEN... 
va cambiata in IF E = 5 
THEN... 

Investor 

Ho battuto in questi gior¬ 
ni il programma INVE¬ 
STOR pubblicato su AP¬ 
PLICANDO n.5. Dopo 
aver controllato accurata¬ 
mente tutto il listato, ho da¬ 
to il RUN, a questo punto la 
parte grafica ha funzionato 
egregiamente, ma, dato il 


RETURN per caricare IN¬ 
VESTOR, il programma si è 
bloccato segnalando il codi¬ 
ce errore PROGRAM TOO 
LARGE. 

Gianni Artuzzi 

Maglio di Sopra 

Non si riscontrano proble¬ 
mi di questo tipo nel far gira¬ 
re INVESTOR, a meno che 
lei non abbia un Apple con 
meno di 48K di memoria 
RAM. Controlli di aver in¬ 
trodotto i dati giusti nelle li¬ 
nee 298 e 300 del programma 
CARICA INVESTOR. So¬ 
no questi che permettono di 
caricare INVESTOR dopo 
la prima pagina grafica, co¬ 
me è spiegato alle pagg. 35 e 
39 della rivista. Controlli an¬ 
che di aver dimensionato in 
modo giusto le variabili alle 
linee 2820, 2870 e 2880. E da 
ultimo, per avere maggior 
memoria a disposizione, 
può eliminare i REM dal li¬ 
stato. Occorre ricordare che, 
dopo essere usciti da un pro¬ 
gramma e prima di farne gi¬ 
rare un altro, è sempre me¬ 
glio azzerare la memoria 
battendo FP. 

Da alcuni mesi sto usando 
con molto interesse il pro¬ 
gramma INVESTOR pub¬ 


blicato sul n.5. Purtroppo 
ho riscontrato un difetto 
nell’opzione RESOCONTI 
alla voce n.3 ANALISI 
DELLE VENDITE. Se 
scelgo di visualizzare tutte le 
azioni vendute, non ci sono 
problemi. Al contrario, nel¬ 
la scelta di una azione con 
più di una operazione di 
vendita, vengono visualizza¬ 
ti nomi di azioni diversi dalla 
mia scelta. 

Messeri Alessandro 
Firenze 

La ringraziamo per la se¬ 
gnalazione. Abbiamo ricon¬ 
trollato il programma e ab¬ 
biamo trovato un banale er¬ 
rore alla linea 2090. Verso la 
metà della stessa troviamo 
...SI$ = n r :F1$ = "IN- 
VEST': GOSUB 380:...Va 
corretta come segue... SI 
$=’T:GOSUB 380:... 

Apple e CP/M 

Sono un ragazzo di 18 an¬ 
ni appassionato di computer 
da circa un anno. Due mesi 
fa ho acquistato, con note¬ 
voli sacrifici data la mia gio¬ 
vane età, un Apple Ile e la 
stampante Image Writer. 
Ora vorrei sapere se è pro¬ 
prio impossibile montare il 
CP/M sul mio computer, o è 
prevista una soluzione per 
questo fastidioso inconve¬ 
niente? 

Alessandro Maio 

Casalecchio Di Reno 

Purtroppo, per il momen¬ 
to, non siamo in possesso di 
notizie tali da farci pensare a 
una soluzione in breve tem¬ 
po del suo problema. Non è 
detto che qualche ditta, al di 
fuori della Apple, abbia già 
affrontato il problema e stia 
pensando a come risolverlo. 
Se avremo informazioni in 
merito, le comunicheremo 
tempestivamente attraverso 
le pagine di Applicando. 

Pucman 

Possiedo un Apple //e e 
ho digitato il programma 
PUC MAN-NIBBLER 
pubblicato sul n.6 (Marzo - 
Aprile 1984). In fase di ese- 


Aiuto a prova d’errore 

Sul n.7 di APPLICANDO, a pag.74-77, è apparso 
un interessante articolo dal titolo UN AIUTO A 
PROVA D'ERRORE, con relativo listato in linguag¬ 
gio macchina di un programma che io ho diligente¬ 
mente copiato. Ma all'atto del BRUN purtroppo il 
programma non si è comportato nel modo dovuto. 
Segnala gli eventuali errori del mio listato ma la rela¬ 
tiva linea di riferimento non corrisponde assoluta- 
mente. 

Gian Luigi Piva, 

Novato (BS) 

Caricato il programma in memoria con il comando 
BLOAD , vada in MONITOR battendo CALL-151, 
quindi batta 9000.9591 e RETURN. Vedrà scorrere il 
listato, in linguaggio macchina, del programma appe¬ 
na caricato che può fermare e far continuare battendo 
CTRL-S. Può così controllare il listato con quello 
pubblicato sulla rivista per trovare un eventuale errore 
commesso nella battitura. Se invece possiede una 
stampante, carichi il programma in memoria , attivi la 
stampante, batta CA LL-151 e quindi 9000.9591 segui¬ 
to da RETURN. Avrà il listato stampato e sarà più 
facile controllarlo. 
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cuzione il computer, dopo 
aver caricato il programma e 
fatta comparire la scritta 
PREMI UN TASTO PER 
CONTINUARE dà un mes- 
saggio di errore: PRO¬ 
GRAM TOO LARGE 
BREAK IN 200. 

Francesco Ciccopiedi 
Benevento 

L’Apple Ile ha memoria a 
sufficienza per il funziona¬ 
mento del programma, e lo 
stesso non è eccessivamente 
lungo. Occorre, prima di tut¬ 
to, correggere un errore tipo¬ 
grafico commesso a pag. 45 
relativo alle operazioni di 
salvamento dei programmi 


in linguaggio macchina. Il li¬ 
stato 2 va salvato con BSA- 
VE NIBBLER SHAPE- 
S,A$4000,L$152 mentre per 
salvare il listato 3 occorre 
battere BSAVE NIBBLER 
OBJ,A$6000,L$ 1181. Se 
dopo aver apportato questa 
modifica ha ancora lo stesso 
problema, controlli con at¬ 
tenzione il programma scrit¬ 
to in Basic. 

Disk map 

Possiedo un Apple II Plus 
con memoria di 64K. Sono 
rimasto molto interessato al 
programma di utility DISK 
MAP da voi pubblicato nel 


n.10 di Applicando. Ma con 
mia grande delusione non 
sono riuscito a farlo girare. 

Paolo Como 

Roma 

Ci scusiamo con lei e con 
tutti gli altri lettori per Vin- 
conveniente riscontrato nel 
programma DISK MAP. Il 
listato è stato pubblicato solo 
parzialmente. Riportiamo 
qui sotto e nella pagina se¬ 
guente la parte involontaria¬ 
mente omessa, precisando 
che per salvare interamente il 
programma, al termine della 
copiatura, occorre battere 
BSA VE DISK MA - 
P,A$803,L$1341. 


Del //c 

vorrei sapere... 

Felice possessore di un 
Apple//c e accanito lettore 
della vostra rivista, vorrei 
porvi alcune domande. Pos¬ 
siedo questo personal solo 
da qualche mese e non cono¬ 
sco ancora tutti i “trucchet- 
ti” del mestiere. 

1 Come si può scrivere in 
modo grafico? Ad esempio 
mettendo dei valori sull’asse 
delle ordinate in un dia¬ 
gramma? 

2 Come posso attivare il mo¬ 
do testo a 80 colonne? 

3 Come posso aggiungere un 
valore (numerico) a un altro 
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C2 

C9 

CE 

CI 

D2 

C9 

CF 

13A8- 

25 

85 

A0 

A9 

C8 

A2 

18 

20 

14C0- 

A2 

15 

DO 

00 

4A 

90 

06 

A9 

1508- 

A0 

A0 

00 

02 

C9 

CC 

CF 

C3 

1380- 

1E 

19 

20 

OC 

FD 

C9 

98 

00 

14C8- 

FI 

A2 

15 

DO 

04 

A9 

F8 

A2 

15E0- 

CI 

C2 

C9 

CC 

C5 

A0 

A0 

A0 

1 SBO¬ 

03 

4C 

50 

12 

C9 

80 

DO 

F2 

1400- 

15 

20 

1E 

19 

28 

30 

06 

A9 

15E8- 

A0 

00 

03 

A0 

A0 

A0 

AO 

A0 

CCO- 

A5 

A0 

20 

5B 

FB 

20 

42 

FC 

1408- 

FF 

A2 

15 

DO 

04 

A9 

0B 

A2 

15F0- 

00 

CI 

A0 

A0 

A0 

A0 

A0 

00 

1 SCO¬ 

20 

64 

OC 

08 

20 

CO 

19 

A2 

14E0- 

16 

20 

1E 

19 

A9 

15 

A2 

16 

15F8- 

C2 

A0 

AO 

A0 

A0 

A0 

00 

D5 

RDO- 

00 

86 

CF 

BD 

75 

0F 

29 

3F 

14E8- 

20 

1E 

19 

A9 

00 

85 

90 

85 

1600- 

CE 

CC 

CF 

C3 

CB 

C5 

C4 

A0 

1308- 

9D 

00 

06 

BD 

25 

0F 

29 

3F 

14F0- 

9E 

85 

9F 

A0 

21 

B1 

94 

48 

1608- 

A0 

A0 

00 

CC 

CF 

C3 

CB 

C5 

13E0- 

90 

50 

07 

BD 

4D 

0F 

29 

3F 

14F8- 

C8 

B1 

94 

F0 

17 

AA 

18 

A9 

1610- 

C4 

A0 

A0 

A0 

00 

03 

C5 

04 

13E8- 

90 

DO 

07 

E8 

EO 

28 

00 

E3 

1500- 

06 

65 

9D 

85 

9D 

A5 

9E 

69 

1618- 

04 

CF 

02 

C5 

8A 

A0 

00 

80 

13F0- 

A9 

00 

85 

96 

A9 

5A 

85 

97 

1508- 

05 

85 

9E 

A5 

9F 

69 

02 

85 

1620- 

80 

00 

CI 

02 

04 

C5 

CE 

DA 

13F8- 

A9 

0A 

85 

99 

A9 

00 

85 

Al 

1510- 

9F 

CA 

00 

EA 

68 

A6 

9E 

A4 

1628- 

CI 

A0 

04 

02 

CI 

C3 

C3 

C9 

1400- 

28 

00 

09 

20 

3F 

16 

A9 

FF 

1518- 

9F 

18 

65 

90 

80 

06 

C9 

0A 

1630- 

CI 

AF 

03 

C5 

04 

04 

CF 

02 

1408- 

85 

CF 

00 

00 

A5 

Al 

00 

OC 

1520- 

90 

OC 

E9 

0A 

E8 

E0 

0A 

90 

1638- 

C5 

BA 

80 

A0 

A0 

A0 

00 

A4 

1410- 

20 

3F 

16 

A5 

CF 

F0 

F5 

DO 

1528- 

F5 

A2 

00 

C8 

00 

F0 

48 

18 

1640- 

99 

81 

96 

00 

19 

C8 

81 

96 

1418- 

03 

20 

3A 

FF 

8D 

10 

CO 

AD 

1530- 

98 

F0 

04 

20 

E3 

FO 

38 

8A 

1648- 

F0 

05 

88 

A9 

00 

F0 

0F 

A5 

1420- 

00 

CO 

10 

FB 

8D 

10 

CO 

C9 

1538- 

00 

02 

90 

03 

20 

E3 

FD 

68 

1650- 

98 

00 

08 

20 

BC 

16 

A5 

CF 

1428- 

9B 

00 

03 

4C 

28 

08 

C9 

86 

1540- 

20 

E3 

F0 

A9 

1F 

A2 

16 

20 

1658- 

F0 

E5 

60 

4C 

DI 

16 

C9 

23 

1430- 

DO 

03 

4C 

50 

12 

C9 

90 

DO 

1548- 

1E 

19 

A9 

AB 

À2 

10 

20 

1E 

1660- 

80 

09 

85 

F9 

C8 

B1 

96 

C5 

1438- 

28 

A9 

00 

85 

96 

A9 

SA 

85 

1550- 

19 

A0 

00 

B1 

94 

48 

4A 

4A 

1668- 

B2 

90 

28 

A9 

75 

A2 

16 

20 

1440- 

97 

A9 

0A 

85 

99 

A9 

00 

85 

1558- 

4A 

4A 

00 

08 

A9 

A0 

20 

E0 

1670- 

1E 

19 

4C 

BC 

16 

8D 

3F 

C5 

1448- 

CA 

85 

CF 

20 

00 

1A 

20 

6B 

1560- 

FD 

4C 

67 

15 

20 

E3 

F0 

68 

1678- 

02 

02 

CI 

D4 

CF 

A0 

C9 

CE 
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lettere 


1680- 03 C5 02 C9 CO C5 CE D4 
1688- CF AO AO AO AO AO AO AO 
1690- AO FF 00 85 FA 20 1C 12 
1698- A5 Al DO 18 AO 03 A2 01 
16A0- C8 81 FB 30 07 C5 CE 00 
16A8- F7 E8 DO F4 8A 18 65 25 
16B0- C5 23 90 03 E6 Al 60 A9 
16B8- 08 20 90 OF 18 A5 99 69 
16C0- 02 85 99 BO 01 60 AO 01 
16C8- 81 96 00 00 CB B1 96 DO 
1600- 08 A9 FF 85 CF 20 3A FF 
1608- 60 E6 97 A5 97 C9 5C BO 
16E0- FO A9 OA 85 99 60 A5 CO 
16E8- C5 93 90 07 20 4B 19 A9 
16F0- 02 85 CO 48 AA 80 00 59 
16F8- 85 94 BO Ol 59 85 95 A2 
1700- 04 20 4A F9 A9 3F 85 32 
1708- 68 4A A2 00 AO 00 C9 OA 
1710- 90 OC E9 OA E8 EO OA 90 
1718- F5 A2 00 C8 00 FO 48 98 
1720- 00 04 E6 24 DO 05 09 BO 
1728- 20 FO FO 8A DO 04 E6 24 
1730- DO 05 09 BO 20 FO FD 68 
1738- 09 80 20 FO FO A9 FF 85 
1740- 32 A2 02 20 4A F9 AO 03 
1748- B1 94 20 FO FO C8 CO 21 
1750- 90 F6 E6 CO E6 CD 60 20 
1758- 2F FB A9 00 85 24 AA 20 
1760- 5B FB A9 20 20 FO FD E8 
1768- EO AO DO F8 20 42 FC 20 
1770- 4B 19 A5 25 85 22 20 01 
1778- 19 A2 03 20 10 19 CA 00 
1780- FA 20 01 19 A9 OE 20 5B 
1788- FB 20 01 19 A2 05 20 10 
1790- 19 CA DO FA 20 01 19 A9 
1798- 01 20 5B FB A9 AC A2 17 
17A0- 20 1E 19 AD 88 07 45 08 
17A8- 80 88 07 60 3F 10 C4 C9 
17B0- 03 CB AO CD CI DO 8A 00 
17B8- AO AO AO CF 00 OA C9 CF 
17C0- CE C9 AO AO AO AO AO FF 
17C8- 8A 8A 8A 8A 8A 07 A8 CO 
1700- A9 AO AO 04 C5 03 04 AO 
1708- AO C4 C9 03 C3 CF AE AO 
17E0- AO 8A 8A 8A 8A 3F 06 CE 
17E8- CF 04 CI BA FF 00 02 C9 
17F0- CD CI AO C4 C9 AO C6 CI 
17F8- 02 C5 AO CC CI AO CO CI 
1800- DO DO CI 8A 06 C4 C5 06 
1808- C9 AO C6 CI 02 C5 AO C9 
1810- CC AO 04 C5 03 04 AO C4 


1818- C5 CC AO C4 C9 03 C3 CF 
1820- 8A 8A 8A 8A 07 A8 C4 A9 
1828- AO AO AO CO CI 00 00 CI 
1830- AO AO AO C4 C9 03 C3 CF 
1838- AE AO AO AO AO 8A 07 A8 
1840- C6 A9 AO AO AO CD CI 00 
1848- 00 CI AO AO AO C6 C9 CC 
1850- C5 AE AO AO 8A 07 A8 C5 
1858- A9 AO AO AO C6 C9 CE C5 
1860- AO 00 02 CF C7 02 CI CO 
1868- CO CI AE AO 8A 8A 8A 8A 
1870- OF 03 C3 C5 CC 04 CI BA 
1878- AO 00 8D OD AO C4 CF 03 
1880- AO B3 AE B3 AO AO AO AO 
1888- AO 88 00 8D 80 00 CE 05 
1890- CD C5 D2 CF AO C4 02 C9 
1898- 06 C5 BA AO 81 88 00 80 
IMO- 80 02 BC BC C9 CE D3 C5 
18A8- 02 C9 02 C5 AO C9 CC AO 
18B0- C4 C9 03 C3 CF AO C4 CI 
18B8- AO C3 CF CE 04 02 CF CC 
18C0- CC CI D2 C5 BE BE 8A 8A 
18C8- 08 02 C5 04 05 02 CE AO 
1800- DO C5 02 AO C3 CF CE 04 
1808- C9 CE 05 CI 02 C5 AO AO 
18E0- AO AO AO 8A 08 C5 03 C3 
18E8- CI 00 C5 AO 00 C5 02 AO 
18F0- C3 CI CE C3 C5 CC CC CI 
18F8- 02 C5 AO AO AO 8A 8A 08 
1900- 00 A9 20 AO 04 91 28 C8 
1908- CO 23 DO F9 20 4B 19 60 
1910- A9 20 AO 04 91 28 AO 22 
1918- 91 28 20 4B 19 60 85 BO 
1920- 86 B1 AO 00 84 3E B1 80 
1928- FO 20 30 OC C9 28 80 04 
1930- 85 24 90 00 85 32 BO 09 
1938- C9 FE BO F8 25 B4 20 EO 
1940- FD A4 3E C8 00 DE E6 B1 
1948- 00 OA 60 A9 80 25 84 4C 
1950- ED FD 20 E3 03 84 06 85 
1958- 07 A9 00 AO 03 91 06 C8 
1960- A5 F9 91 06 C8 A5 FA 91 
1968- 06 AO 08 A9 43 91 06 C8 
1970- A9 1B 91 06 AO OC A9 01 
1978- 91 06 60 AO 04 A5 F9 91 
1980- 06 C8 A5 FA 91 06 AO 02 
1988- A5 B3 91 06 20 E3 03 20 
1990- 09 03 60 85 BO 86 B1 A9 
1998- 20 AO 27 91 28 88 00 FB 
19A0- A9 3F 85 32 B1 BO C9 AE 
19A8- FO 06 20 FO FO C8 00 F4 


1980- A9 FF 85 32 A5 22 20 5B 
19B8- FB 60 A9 AE 20 FO FD 60 
19C0- A9 20 A2 27 90 00 06 90 
19C8- 50 07 90 DO 07 CA 10 F4 
1900- A9 14 85 23 60 E8 86 9A 
19D8- A2 00 80 10 CO 20 OC FO 
19E0- 90 00 02 C9 80 FO 21 C9 
19E8- 88 00 08 8A FO EF CA C6 
19F0- 24 00 EA C9 9B 00 03 4C 
19F8- 28 08 20 FO FD E8 E4 9A 
1A00- 90 08 20 3A FF A9 00 60 
1A08- AO 00 02 E8 60 48 A9 18 
1A10- 85 23 20 42 FC A9 15 20 
1A18- 5B FB A9 90 A2 1A 20 1E 
1A20- 19 20 42 FC A2 01 20 05 
1A28- 19 FO EA C9 BO 90 04 C9 
1A30- B8 90 06 20 3A FF 4C 15 
1A38- 1A AA 68 A8 8A 48 98 FO 
1A40- 09 20 4B 19 20 AE 11 20 
1A48- 1C 12 20 58 FC 20 CO 19 
1A50- A2 00 BO B8 1A 29 3F 90 
1A58- 50 07 BO EO 1A 29 3F 90 
1A60- 00 07 E8 EO 28 DO EB 20 
1A68- 58 FC A9 C6 A2 18 20 1E 
1A70- 19 20 3A FF 20 OC FO C9 
1A78- 98 00 06 68 68 68 4C 28 
1A80- 08 C9 80 DO EF 20 58 FC 
1A88- 18 66 B4 68 20 95 FE A2 
1A90- 00 BO 34 1B 20 EO FO E8 
1A98- C9 00 00 F5 60 80 AO 03 
IAAO- CC CF 04 AO C4 C5 CC CC 
1AA8- CI AO 03 04 CI CO 00 CI 
1A80- CE 04 C5 BA AO AO AO 00 
1AB8- 05 CE AO 04 CI 03 04 CF 
1AC0- AO DO C5 02 AO C3 CF CD 
1AC8- C9 CE C3 C9 CI 02 C5 AF 
1AOO- C6 C5 02 CD CI 02 C5 AO 
1A08- C9 CC AO CC C9 03 04 AO 
1AE0- AO AO AO AO AO AO AO AO 
1AE8- AO AO C5 03 C3 CI DO C5 
1AF0- AO 00 C5 02 AO CI CE CE 
1AF8- 05 CC CC CI D2 C5 AO AO 
1800- AO AO AO AO AO AO AO AO 
1B08- AO 00 CO 10 12 8D 10 CO 
1810- C9 9B 00 10 68 68 20 4B 
IBI8- 19 38 26 B4 4C 28 08 A5 
1B20- CA 00 FI 60 8D 10 CO AO 
1B28- 00 CO 10 FB 80 10 CO C9 
1B30- 9B FO E1 60 00 00 00 00 
1B38- 00 OD 00 00 OD 00 OD OD 
1B40- 00 OD 00 20 
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già presente in un archivio 
sequenziale? Ho già provato 
ad eseguire l’operazione di 
somma; ma il nuovo valore 
non viene aggiunto. 

4 Come faccio a datare un 
programma salvato (visto 
che c’è l’apposito spazio)? 

Filippo Lievore 
Torino 

Per scrivere in modo grafi¬ 
co con l’Apple occorre pri¬ 
ma disegnare (in grafica) tut¬ 
ti i caratteri che si vogliono 
utilizzare e quindi salvarli in 
un file binario. Per poterli 
visualizzare in grafica (solo 
in HGR o HGR2) prima bi¬ 
sogna caricare in memoria, 
con un BLOAD, il file bina¬ 
rio, poi si devono posiziona¬ 
re, all’indirizzo giusto, i co¬ 
siddetti puntatori delle figu¬ 
re, occorre cioè scrivere nelle 
locazioni di memoria 232 e 
233 l’indirizzo di partenza 
della tavola delle figure (per 
esempio, se la tavola delle fi¬ 
gure è stata caricata all’indi¬ 
rizzo esadecimale 1800, si 
deve battere POKE 232,0: 
POKE233,24). Quindi, bat¬ 
tuto HGR, si possono scrive¬ 
re i caratteri sullo schermo 
battendo DRAWn (dove n è 
il numero corrispondente al 
carattere scelto) ATn,n (do¬ 
ve n,n sono le coordinate 
dello schermo). Per creare il 
set di caratteri si può utilizza¬ 
re il programma pubblicato 
sul n.l di Applicando a pag. 
58, che è anche disponibile 
su dischetto. 

Per attivare le 80 colonne 
nell’ApplelIc è sufficiente 
battere PR * per ritornare in 
40 colonne si può premere 
CTRL-RESET, oppure 
ESC 4 oppure battere 
CHR$ (12); CHR$ (21 ). 

La soluzione più semplice 
alla terza domanda è quella 
di caricare in memoria, in 
una matrice, i dati dell’archi¬ 
vio, elaborarli e quindi ri¬ 
scriverli in un file sequenzia¬ 
le.Per inserire la data in un 
programma salvato, in 
PRO DOS, occorre usare il 
disco di sistema del PRO- 
DOS (USERS.DISK) forni¬ 
to con il computer. Carichi il 
PRO DOS. Nel menu princi¬ 
pale esiste una opzione alla 


lettera T che serve per inseri¬ 
re in memoria la data e l’ora. 
Fatto ciò torni al menu prin¬ 
cipale e batta la lettera B per 
andare in basic-Prodos. 
Un’altra soluzione, più sem¬ 
plice, è la seguente: Carichi 
in memoria il basic-Prodos, 
batta “POKE 49041, anno 
(solo due cifre)*2 + (ME- 
SE>7)” quindi, se il valore 
del mese è maggiore di 7, 
batta “POKE 49040, (ME- 
SE-8)*32 + GIORNO”; se 
invece il mese è minore di 8 
allora batta “POKE 
49040, MESE* 32 + GIOR¬ 
NO”. Esempio: se la data è 
UH85 deve battere POKE 
49041,85*2-\-(l>7) e POKE 
49040,1*32 + 1. Da questo 
momento e fino a quando 
non si spegne il computer, 
tutti i programmi che verran¬ 
no salvati avranno automati¬ 
camente la data e l’ora intro¬ 
dotta in memoria. Per i pro¬ 
grammi salvati in preceden¬ 
za e ai quali si vuole aggiun¬ 
gere la data, è sufficiente ca¬ 
ricarli in memoria, cancel¬ 
larli dal disco e risalvarli sul 
disco. 

Le possibilità 
delle Centronics 

Sono un vostro abbonato 
in possesso di un Apple //e, 
di una stampante Centro¬ 
nics 739/2 e del programma 
Apple Writer//e. Purtrop¬ 
po, dopo un anno di vane 
ricerche, non sono ancora in 
grado di utilizzare la mia 
stampante sfruttandone tut¬ 
te le possibilità. Pur seguen¬ 
do tutte le informazioni con¬ 
tenute sia nel manuale del 
programma che della stam¬ 
pante, non sono riuscito a 
sfruttare tutte le possibilità 
offerte da quest’ultima co¬ 
me selezione del carattere, 
interlinea, sottolineatura, 
ecc. Inutile dire che ho fatto 
mille esperimenti cercando 
di inserire i caratteri di con¬ 
trollo della stampante in 
Apple Writer//e: tutto inuti¬ 
le. Emilio Accursio 

Ribera (AG) 

Purtroppo dalla sua lette¬ 
ra non riusciamo a capire 
quali possano essere gli erro¬ 


ri che lei commette. Dovreb¬ 
be scriverci nuovamente de¬ 
scrivendo nei particolari co¬ 
me inserisce un comando per 
la stampante, precisando 
esattamente quali tasti pre¬ 
me. 

Eliminatore di dos 

Ho acquistato l’arretrato 
n. 1 e ho provato a digitare il 
programma ELIMINATO- 
RE DI DOS e, ancor prima 
di provarlo, ho notato alcu¬ 
ne incongruenze fra il testo 
dell’articolo e il program¬ 
ma. Nell’articolo si afferma 
che il guadagno di spazio sa¬ 
rà di 48 settori e che questo 
si ottiene cancellando le pi¬ 
ste 0, 1 e 2 e segnandole co¬ 
me vuote sulla VTOC. 

In realtà, eseguito il pro¬ 
gramma su un disco vuoto, 
se si controlla lo spazio libe¬ 
ro con il programma FID, si 
trovano 528 settori liberi e 
16 settori occupati. Questo 
mi sembra giusto dal mo¬ 
mento che il loop di cancel¬ 
lazione, a riga 410, va da 1 a 
2 e non da 0 a 2 come sem¬ 
brerebbe giusto; inoltre il 
loop di modifica della 
VTOC, a riga 340, va da 60 a 
67 e non da 56 a 67 in accor¬ 
do con la modifica della riga 
410. Ho provato a modifica¬ 
re di conseguenza le righe 
340 e 410 e a far girare di 
nuovo il programma. Con¬ 


trollato lo spazio con FID, 
ho trovato finalmente 544 
settori liberi e 0 settori occu¬ 
pati. 

A questo punto ho fatto 
girare un programma che 
scrive su disco tanti record 
finché c’è posto, ma pur¬ 
troppo mi sono accorto di 
essere riuscito a riempire so¬ 
lo 528 settori. 

Renzo Bertini 
Firenze 

Innanzi tutto occorre fare 
una precisazione sullo spa¬ 
zio disponibile nel disco. I 
settori utili sono 560, dei 
quali 48 utilizzati per il DOS 
(tracce 0,1 e 2) e 16 utilizzati 
per il VTOC e per il CATA- 
LOG (traccia $11). Quindi i 
settori utili per la memoriz¬ 
zazione dei dati sono 496. 
Cancellando il DOS dalle 
tracce 1 e 2 con L’ELIMI¬ 
NATORE DI DOS, ottenia¬ 
mo 32 settori liberi per i no¬ 
stri dati. Ora controllando il 
disco con FID rileviamo 528 
settori liberi e 32 settori occu¬ 
pati (tracce 0 e $11). Le Sue 
osservazioni sono tecnica- 
mente valide ma, pratica- 
mente, non portano nessun 
ulteriore vantaggio perché i 
16 settori della traccia 0 non 
possono essere utilizzati per 
memorizzare programmi, in 
quanto il DOS usa uno 00 
come indicatore di fine del¬ 
l’elenco tracciai settore. 


Sistema base: come cancellare itile 

Desidererei rispondere al problema posto dal- 
l’Arch. Aldo Cecere di Aversa sul n. 4 di Applicando, 
riguardo all’impossibilità di cancellare i files creati dal 
programma SISTEMA BASE. Detti files possono 
essere cancellati evitando la manova di reinizializza- 
zione. Basterà usare il programmino che evidenzia i 
control-caratteri dei files che si trova su Applicando 
n. 6 a pag. 93 o sul manuale DOS 3.3, a pag. 155. La 
procedura è molto semplice. Una volta battuto il 
programma sopra indicato, si darà il RUN. Subito 
dopo, battendo CATALOG, ci si accorgerà che dopo 
i files creati dal programma DATA BASE vi sarà una 
lettera che lampeggia (è il carattere di controllo che 
impediva la cancellazione). A questo punto si do¬ 
vranno fare i soliti comandi per lo sblocco e cancella¬ 
tone, avendo l’accortezza di battere il nome del file 
da eliminare più i caratteri lampeggianti che andran¬ 
no scritti tenendo premuto il tasto Control. 

Loano (SV) Fabio Bissaro 
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Listati senza fatica 


Tutti i programmi di Applicando possono esse¬ 
re trascritti e quindi salvati su dischetto. Ma la 
trascrizione è lenta e noiosa, e sbagliare fin 
troppo facile. Ecco perché Applicando offre, 
già pronti, i dischetti con i programmi sotto¬ 
indicati: per ottenerli, è sufficiente inviarci il 
tagliando debitamente compilato. 

Applicando 1 

*AP1/I02 

Profitti.Calendario perpetuo.I tronchi del teso¬ 
ro. Lire 30.000 (abbonati 25.000). 

*AP1/N03 

Eliminatore di Dos.Orologio.Pronti puntare 
fuoco! Lire 30.000 (abbonati 25.000). 

Applicando 2 

‘AP2/IN04 

Costi chilometrici auto. Richiamafigure. Laser 
nello spazio. Lire 30.000 (abbonati 25.000). 

Applicando 3 

*AP3/IN05 

Sistema base. Etichette. Contratti. Gran Cata¬ 
logo. Lire 30.000 (abbonati 25.000). 

AP3/A06 

Equo canone (occorre VisiCalc). Lire 25.000 
(abbonati 20.000). 

Applicando 4 

*AP4/N07 

Lettura sprint (versione italiana e versione con 
frasi in inglese). Rompiquindici. Tastierino fan¬ 
tasma. Routine di Input. Lire 30.000 (abbonati 
25.000). 

AP4/A08 

Banca dati Apple (occorre VisiDex). Lire 
30.000 (abbonati 25.000). 

AP4/A09 

Dischetto Pascal (occorre Language Card o 
Apple //e) con i programmi ORGANO, VIOLI¬ 
NO, PIANOFORTE. Lire 30.000 (abbonati 
25.000). 

Applicando 5 

AP5/N08 

Investor. Lire 70.000 (abbonati 60.000). 
*AP5/N09 

Agenda personale. Duello d’artiglieria. Mele e 
freccette. Lire 30.000 (abbonati 25.000). 



applicando] 








Applicando 6 

*AP6/N10 

Obbligazioni/Bond Manager. PucMan/Nibbler. 
Line Finde. Lire 30.000 (abbonati 25.000). 
AP6/N11 

Stress. Lire 55.000 (abbonati 45.000). 

Applicando 7 

*AP7/N12 

Apple pittore. Ottovolante. Diskblock. Archivio 
per Apple. Discoteca. Aiuto. Lire 30.000 (abbo¬ 
nati 25.000). 

Applicando 8 

*AP8/N13 

Cambiacomandi/Messaggi. Le Mans. Appleor- 
gano. Lire 30.000 (abbonati 25.000). 

*AP8/T 14 

Momento di una forza/Colpo ail’asta. Hard co¬ 
py pagine in alta risoluzione. Lire 30.000 (ab¬ 
bonati 25.000). 

Applicando 9 

*AP9/N15 

Fuoco fatuo. Apple artista. Data Hello. Lire 
25.000 (abbonati 20.000). 

*AP9/T 16 

Sistema di forze parallele. Traslazione e rota¬ 
zione di una figura piana. Lire 30.000 (abbonati 
25.000). 

Applicando 10 

*AP10/N14 

Ripristino. Disk Map. Autonumber. Lire 30.000 
(abbonati 25.000). 

*AP10/T17 

Rette nel piano cartesiano. Statistica. Lire 
30.000 (abbonati 25.000). 

Applicando 11 

*AP11/N18 

Apple edicola. Disk Zap. Messaggi personali. 
Supertastierino numerico. Comparatore di pro¬ 
grammi in Basic. Trappola per pochi. Lire 
30.000 (abbonati 25.000). 

*AP11/T 19 

Espressioni. Lire 25.000 (abbonati 20.000). 

Applicando 12-13 

AP12/N20 

Per imparare e giocare a Bridge (gioco con 
istruzioni e grafica ad alta risoluzione). Micro- 
cale (Minispreadsheet). Applesoft Line Editor 
(utility). Lire 30.000 (abbonati 25.000). 




AP12/A21 

Budget con inserimento dati mensili, medie 
preventive e consuntive e relativi saldi mensili 
e annui. Versione per APPLEWORKS. Lire 
15.000. 

AP12/A22 

Budget con inserimento dati mensili, medie 
preventive e consuntive e relativi saldi mensili 
e annui. Versione per VISICALC. Lire 15.000. 
AP12/A23 

Cinque modelli Spreadsheet, tre modelli data 
base, due modelli Word Processor. Versione 
per APPLEWORKS. Due dischetti, Lire 80.000 
(abbonati 70.000). 

AP12/A24 

Cinque modelli Spreadsheet. Versione per VI- 
SICALC. Lire 40.000 (abbonati 35.000). 
AP12/T25 

Animazione di una rotazione tridimensionale. 
Trasformazione da File a Data (utility). Lire 
20.000 (abbonati 15.000). 

* I dischetti contrassegnati con asterisco con¬ 
tengono anche il programma tombola, omag¬ 
gio natalizio di Applicando e di Compushop, via 
Nomentana 265-273, Roma. 














n. 


Compilare e spedire il tagliando qui sotto a Applicando, Editronica Srl., Corso Monforte 39, 20122 Milano 

Cognome . Nome . 

Via . Cap . 

Città . Prov . 

Scelgo la seguente formula di pagamento: 

□ allego assegno di L . non trasferibile intestato a Editronica srl. 

□ allego ricevuta versamento di L . sul cc/p n. 19740208 intestato a 

Editronica srl. - Corso Monforte, 39 - 20122 Milano 

□ pago fin d’ora l’importo di L . con la mia carta 

di credito Bank Americard N . 

scadenza . autorizzando la Banca 

d’America e d’Italia ad addebitarne l’importo sul mio conto BankAmericard. 


Vogliate inviarmi i seguenti dischetti 
n. 
n. 
n. 
n. 


lAlPl 

1 1 / 1 

1 1 1 1 

1A | P 

1 1/ 

1 1 1 1 

1 Al P i 

1 1/ 

1 1 1 1 

lAlPl 

1 1/ 

1 1 1 1 

1A1P 1 

1 1/ 

1 1 1 1 

1 Al P 

1 1 / 

1 1 1 1 

1A1P 1 

1 1 / 

1 1 1 1 


Sono abbonato: sì □ no □ 


Data. Firma 

























































OBIETTIVO 



HIGH PBECISION 



" 

| Bie 
Roi 
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MEE - Memorie per Elaboratori Elettronici S.p.A. 

Forniture per Centri Elaborazione Dati 
Sede Amm.va: 20144 Milano - Via Boni 29 
Tel. 4988541 (4 linee r.a.) - Telex 324426 MEE-I 
Filiali e Agenzie: Milano - Bergamo - Torino 
Biella • Padova - Parma - Bologna - Firenze - Ancona 
Roma • Napoli - Catania - Oristano - Bari - Genova 
Bolzano ■ Mestre 


HIGH PRECISION A COLPO SICURO! 


High precision Data Memories 

é tecnologia avanzata di costruzione. 

È il supporto magnetico testato ai limiti 
della resistenza con garanzia di assoluta 
affidabilità. 

È avanguardia tecnologica per assicurare 
la massima protezione dei dati, 
anche, nelle situazioni più critiche. 


I 




















1980 



Computer Center apre Genova all'informatica 

con il suo primo Computer Shop 


1984 



Computer Center guida Genova neH'informatica 

con i suoi ComputerShops 


Apple a Genova é 


flÉcippkz computar 


computar coniar 

vendita-assistenza -software -corsi 


ViaS.Vincenzo H)7-109r. tel.010/581474 Genova 
Via Storace4r. tei.010/454107 Ge.$ampierdarena 
Via S.Vincenzo 129r. tel.010/581815 Genova 
Corso Gastaldi 77r. tei.010/300797 Genova 
C.soB.Airesl25 tel.0185/314142 Lavagna 




